NAVAL  POSTGK.:  ^u/:  .:;  JCHOOL 
MONTEREY,  CALIFORNIA  93943-8002 


FORnULATlON  OF  NUHERICAL  HETHODS 

USED  IN  THE 

XYZ  THREE-DIMENSIONAL  POTENTIAL  FLOW  PROGRAM 


An  Engineering  Report 

by 
WILLIAM  JAMES  BEARY  JR. 


Submitted  to  the  Faculty  of 

the  College  of  Engineering 

Texas  A&M  University 

in  partial  fulfillment  of  the  requirements  for  the  degree  of 

MASTER  OF  ENGINEERING 


May  1986 


Major  Subject:   Ocean  Engineering 


FORMULATION  OF  NUHERICAL  METHODS 

USED  IN  THE 

XYZ  THREE-DIMENSIONAL  POTENTIAL  FLOW  PROGRAM 


An  Engineering  Report 

by 
WILLIAM  JAMES  BEARY  JR. 


Submitted  to  the  Faculty  of 

the  College  of  Engineering 

Texas  A&M  University 

in  partial  fulfillment  of  the  requirements  for  the  degree  of 

MASTER  OF  ENGINEERING 


May  1986 


Major  Subject:   Ocean  Engineering 


T22602A 


ABSTRACT  f^n^l'/.^f  5"^^^^'^^  «ohoo. 


DUDLEY  KIJGXUBKahy 
NAVAL  POSTGRADUATE  t^uHCU 
MONTEREY,  CALIFORNIA  93943-500£j 


The  calculation  Of  non-lifting  potential  flow  about  arbitrary  three 
dimensional  bodies  is  examined  in  detail  with  specific  interest  in  the  XYZ 
Potential  Flow  program  developed  by  the  David  W.  Taylor  Naval  Ship 
Research  and  Development  Center.  The  program  uses  a  surface  singularity 
distribution  to  solve  the  Neumann  boundary  value  problem  by  means  of  a 
source  panel  method  assuming  a  flat  element  with  a  constant  source 
density  over  the  area  of  the  element.   Boundary  conditions  are  applied  at 
control  points  on  the  elements  producing  a  system  of  linear  equations  for 
the  source  density.   When  the  source  density  is  known,  velocities  and 
pressure  coefficients  may  be  calculated. 

The  main  purpose  of  this  paper  is  to  present  the  details  of  the 
approximation  of  an  arbitrary  three  dimensional  body  using  quadrilateral 
elements,  and  to  provide  a  detailed  derivation  of  the  exact  source  panel 
integrations  in  order  to  gain  insight  for  future  research  at  Texas  A&M 
University.   A  variation  of  the  Hess  method  of  surface  discretization 
using  quadrilateral  source  panels  is  described  in  detail  as  it  is  used  in  the 
XYZ  Potential  Flow  program.  The  exact  source  panel  integrations  are 
derived  in  detail. 

A  general  discussion  of  other  aspects  of  the  program  is  included. 
Velocities  and  pressure  coefficients  for  flow  about  a  triaxial  ellipsoid 
are  calculated  using  the  XYZ  Potential  Flow  Program  solution,  and  the 
results  are  compared  with  the  analytical  solution  and  the  Hess  Program 
solution. 
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1.0     INTRODUCTiON 

This  paper  examines  two  aspects  of  the  development  of  the  XYZ 
Potential  Flow  Program  (hereafter  referred  to  as  the  XYZPF  Program),  a 
FORTRAN  program  which  uses  a  source  panel  method  to  approximate 
solutions  to  steady  potential  flow  problems  about  arbitrary  three 
dimensional  bodies.  The  aspects  examined  in  detail  are  (1)  the 
description  of  the  details  of  the  approximation  of  an  arbitrary 
three-dimensional  body  using  quadrilateral  elements,  and  (2)  a  detailed 
derivation  of  the  exact  source  panel  integrations. 

The  XYZPF  Program  was  developed  specifically  for  applications  in 
numerical  ship  modelling  and  hydrodynamics  studies  at  the  David  W. 
Taylor  Naval  Ship  Research  and  Development  Center  (NSRDC)  in  Bethesda, 
Maryland.   The  format  of  the  program  is  based  on  the  work  of  Hess  and 
Smith  (1962)  in  the  numerical  calculation  of  non-lifting  potential  flow. 
A  similar  program  is  maintained  by  the  Aerodynamics  Division  of  the 
McDonnell-Douglas  Corporation,  referred  to  in  this  paper  as  the  "Hess 
program."  The  XYZPF  Program  is  a  modification  of  what  has  come  to  be 
known  generally  as  the  Hess  Method.  The  most  significant  modifications 
are  improvements  to  the  method  of  solving  the  matrix  equation  for  the 
source  density,  and  greater  flexibility   in  the  input  options  (Dawson  and 
Dean  1972). 

Though  potential  flow  is  a  product  of  mathematics,  and  is  never 
found  in  a  real  fluid,  the  results  of  potential  flow  calculations  provide 
usable  information  for  flow  regions  external  to  a  thin  boundary  layer. 
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with  little  or  no  boundary  layer  separation.  For  such  flow  fields,  the 
region  outside  the  boundary  layer  may  be  considered  to  be  effectively 
jnviscid.  and  may  be  closely  approximated  by  potential  flow  models. 
Small  viscous  effects  can  be  accounted  for  by  "thickening"  the  body  by  the 
appropriate  displacement  thickness.  Displacement  thickness  accounts  for 
the  region  of  retarded  fluid  flow  in  the  boundary  layer  inversely 
proportional  to  the  square  of  the  free  stream  velocity.  Downstream  of 
the  point  of  boundary  layer  separation,  the  potential  flow  model  no 
longer  applies. 

Prior  to  the  development  of  numerical  methods,  analytical 
solutions  were  generally  restricted  to  simple  analytical  shapes  (Kellogg 
1929).    The  need  to  solve  boundary  value  problems  for  arbitrary 
boundaries  in  continuum  mechanics  has  fostered  the  development  of 
numerical  approximations  to  the  integral  equation  expressions.   While 
the  integration  methods  have  been  well  known  for  quite  some  time,  only 
since  the  advent  of  high  speed  computers  have  many  of  the  problems 
been  practical  to  solve  by  numerical  methods.  Among  the  numerical 
methods  being  used  are  finite  differences,  finite  elements,  and  the 
boundary  element  method. 

"Finite  differences"  and  "finite  elements"  are  numerical  methods 
which  satisfy  the  boundary  conditions,  and  then  approximate  the 
solution  to  the  governing  equation  in  the  fluid  domain.  These  methods 
discretize  the  domain  into  a  network  of  elements  or  cells. 


Another  approach  is  what  is  now  l<nown  as  the  "Boundary  Element 
Method,"  in  which  the  governing  equation  is  exactly  satisfied  in  the 
domain,  and  the  boundary  conditions  are  applied  through  a  boundary 
discretization  method.  The  boundary  value  problem  is  reformulated  as  a 
boundary  integral  equation  which  is  then  discretized  by  subdividing  the 
boundary  into  a  finite  number  of  surface  elements.   Each  element  is 
represented  by  an  analytical  function,  and  the  source  density  function  is 
integrated  over  the  surface  of  each  element.   Two  factors  governing  the 
accuracy  of  the  boundary  element  method  are  the  boundary  discretization 
method  and  the  source  panel  integration.    These  two  factors  are  examined 
in  detail  in  this  report,  as  a  detailed  derivation  of  the  exact  source  panel 
integration,  Including  the  development  of  the  source  panel  geometry,  has 
not  previously  appeared  in  literature. 

The  difference  between  the  domain  methods  and  the  boundary 
methods  is  significant.    The  domain  methods  discretize  the  domain,  while 
the  boundary  methods  discretize  the  boundary.  Thus,  the  boundary  method 
reduces  the  dimension  of  the  problem  by  one,  as  depicted  in  figure  (1).    In 
the  application  of  the  XYZPF  Program,  the  problem  is  reduced  from  a 
three-dimensional  problem  in  the  domain  to  a  two-dimensional  problem 
on  the  boundaries.  This  method  is  well  suited  to  problems  in  which  the 
limits  of  the  domain  are  infinite  or  difficult  to  define,  in  that  the 
problem  is  applied  to  the  boundary  rather  than  the  domain. 


¥^^^^?»^ 


FINITE  ELEMENT  DISCRETIZATION 


BOUNDARY  ELEMENT  DISCRETIZATION 


Fifwe  1 .  Discretization  Methods 


Just  as  there  are  many  variations  of  domain  methods,  there  are 
also  a  variety  of  boundary  methods.  In  general,  they  can  be  classified  as 
"indirect"  or  "direct"  formulations.   The  "indirect"  method  assumes  a 
continuous  source  distribution  over  the  surface  of  the  body,  and  a 
solution  which  satisfies  both  the  governing  equation  in  the  domain,  and 
the  boundary  conditions  on  the  body  surface.  The  result  is  an  integral 
equation  on  the  boundary  which  has  the  surface  source  density  function  as 
Its  unknown.  By  enforcing  the  boundary  conditions  at  control  points  on 
the  surface,  a  system  of  equations  is  produced  by  which  the  source 
density  may  be  determined. 


The  "direct"  method  solves  the  velocity  potential  function  through 


an  application  of  Green's  Second  Identity  requiring  the  solution  of  a 
source  distribution  and  a  dipole  distribution  on  the  boundary.  The  direct 
method  has  more  physical  significance  to  the  general  boundary  value 
problem,  and  more  versatility  in  its  application  as  it  can  be  applied  to 
Neumann  problems,  Dirichlet  problems,  or  mixed  boundary  value  problems 
(Brcbbia  1984). 

The  simplicity  and  accuracy  of  the  indirect  method  has  made  it 
attractive  for  many  applications.   The  source  panel  method  is  an 
application  of  the  indirect  formulation  of  the  boundary  element  method 
to  the  Neumann  type  of  potential  flow  problem,  for  which  the  normal 
derivative  of  the  potential  function  is  prescribed  on  the  boundary. 

1.1      OBJECTIVES 

The  purpose  of  this  paper  is  (1)  to  describe  the  details  of  the 
approximation  of  an  arbitrary  three-dimensional  body  using  quadrilateral 
elements,  and  (2)  to  provide  a  detailed  derivation  of  the  exact  source 
panel  integrations  for  use  in  future  investigations  at  Texas  A&n 
University  using  panels  of  higher  order  geometries  and  source  density 
functions.  This  paper  is  not  intended  to  be  a  user's  mianual.  though  a 
general  discussion  of  other  aspects  of  the  program  is  also  included. 
NSRDC  Report  3892  (Dawson  and  Dean  1972)  is  a  summary  of  the  XYZPF 
Program  for  those  strictly  interested  in  its  use. 


2.0    HISTORICAL  DEVELOPMENT 

The  foundations  of  the  boundary  element  method  were  laid  early  in 
this  century  beginning  with  Fredholm  in  1903  when  he  established  the 
existence  of  solutions  to  the  Neumann  problem  through  a  reconstruction 
of  the  problem  using  a  discretized  boundary  (Kellogg  1929).    The  solution 
was  determined  to  be  the  potential  of  a  simple  source  distribution  on  a 
boundary  with  a  continuous  normal  derivative  for  an  infinite  domain. 
Later  works  by  Kellogg  (1929)  in  potential  theory  demonstrated  the 
application  of  the  boundary  integral  equation  method  in  electrostatics, 
heat  transfer,  flow  in  porous  media,  and  fluid  flow  problems,  but 
development  was  limited  by  the  difficulty  of  obtaining  analytical 
solutions.  No  significant  advances  were  made  until  interest  in  boundary 
integral  equation  methods  was  revitalized  with  the  advent  of  high  speed 
electronic  computers.  Investigators  were  then  able  to  discretize  the 
boundaries  and  solve  the  integral  equations  numerically.    This  method  of 
solution  became  known  as  the  boundary  element  method.  Early 
development  of  such  numerical  methods  was  pioneered  by  Hess  and  Smith 
(1962)  and  Jaswon  and  Symm  (1963).    Hess  and  Smith  dealt  primarily  with 
the  indirect  formulation  eventually  leading  to  a  solution  for  the  three 
dimensional  problem  as  described  in  this  paper.  In  a  parallel  work. 
Jaswon  and  Symm  developed  a  direct  formulation  approach  to  the  two 
dimensional  problem.  TheXYZPF  Program  is  based  primarily  on  the  work 
of  Hess  and  Smith.   Hess  has  since  developed  a  higher  order  panel  method 
(Hess  1979)  and  Lefebvre  modified  the  XYZPF  Program  for  calculating 
velocity  potentials  for  five  degrees  of  freedom  (Lefebvre  1982). 


3.0    THEORETICAL  DEVELOPMENT 

3.1     THE  POTENTIAL  FLOW  PROBLEM  IN  THREE  DIMENSIONS 

The  governing  equation  for  idea!  (incompressible,  inviscid, 
irrotationai)  flow  is  Laplace's  equation: 


V2$  =  0 


(0 


where  i  is  the  velocity  potential,  and  V^  is  the  Laplacian  operator.  The 
XYZPF  Program  deals  with  steady,  uniform  flow  of  an  ideal  fluid  about  an 
arbitrary  three  dimensional  body.  The  velocity  components  at  any  point 
within  the  flow  field  may  be  obtained  from  the  negative  gradient  of  the 
velocity  potential,  i.  e. 


V     =     -V* 


di'  ^    _  9|^|    _  .i£_k 


(2) 


dx 


^^y 


oz 


The  freestream  flow  V^  is  defined  as  a  uniform  stream  of  unit 


magnitude. 


00 


00 


(3) 


The  key  to  the  boundary  element  method  is  the  Divergence  Theorem 
(Green's  Theorem)  which  relates  a  volume  integral  to  an  equivalent 
surface  integral  reducing  the  three-dimensional  problem  to  a 


two-dimensional  one.  The  expression  for  Green's  second  identity  is 
(Lamb  1924): 

JJJ(4-V2w  -  wV^*)  df^    --    JJ(  w|i  -  *  1^ )  dr  (4) 


In  which  Q  represents  the  integration  over  the  three  dimensional  domain, 
and  r  represents  integration  over  the  two  dimensional  boundary.  The 
partial  derivatives  are  taken  with  respect  to  the  outward  normal,  n.  The 
weighting  function,  w,  is  usually  chosen  to  be  the  fundamental  solution 
for  three  dimensions,  w  =  l/(4Trr),  where  r  is  the  distance  from  the 
source  to  an  arbitrary  point  on  the  boundary. 


Fifwe  2.  Potential  Flov  in  Three  Dimensions 


Consider  an  arbitrary  three-dimensional  body  with  surface  r, 
having  an  equation  of  the  form  F(x,  y,  z)  =  0  where  x,  y,  z  are  Cartesian 
coordinates  of  the  global  reference  system  as  shown  in  Figure  (2).  The 
unit  outward  normal,  n,  at  any  point  on  the  surface  is  given  by  the 
gradient  of  the  function  describing  the  surface  divided  by  the  magnitude 
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of  the  gradient,  i.e. 

±VF 
n    =     - — -  (5) 

VF 


where  the  sign  of  the  unit  norma!  vector  is  chosen  to  ensure  that  the 
vector  is  an  outward  normal.  The  potential  function  $  describing  the 
flow  field  must  meet  the  following  boundary  conditions: 

a.  V^*  =  0         (Laplace's  Equation)  (6) 

b.  For  an  impermeable  boundary,  the  velocity  normal  to  the  surface 
must  be  zero  relative  to  the  boundary  (the  Neumann  boundary 
condition): 


( '''*  \  ■  ■ 

^—  -     0  (7) 


c.  The  velocity  potential  approaches  the  freestream  velocity 
potential  as  the  distance  from  the  body  goes  to  infinity: 

i'  ->  %.,       as      |r|  -^  «.  (g) 

The  total  potential  at  any  point  in  the  domain  is  composed  of  the 
freestream  potential  and  the  disturbance  potential  due  to  the  body. 

^  =  9oo  -^  *  (9) 


The  disturbance  potential,  <p,  satisfies  the  following  boundary 
conditions: 

a.  V29  =  0  (10) 

b.  From  equation  (7),  the  velocity  normal  to  the  boundary  due  to 
the  disturbance  and  due  to  the  onset  flow  must  be  of  equal 
magnitude,  but  opposite  sign.  Then  from  equation  (9) 


f^l     --    n(p)  .    V...  (11) 


Note  that  the  normal  vector  is  a  function  of  position  on  the  surface 
of  the  body. 

c.  The  disturbance  potential  approaches  zero  as  the  distance  from 
the  body  goes  to  infinity,  i.  e. 

9  ->   0         as      |rl  -►  K.  (12) 

3.2    MATHEMATICAL  MODEL 

The  disturbance  potential  of  the  body  may  be  represented  by  a 
distribution  of  a  source  density  function  o  over  the  body  surf  ace.  The 
potential  at  an  arbitrary  point  P(x,  y,  2)  due  to  the  surface  potential  is 
(Kellogg  1929): 
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^''^•y-^'^  JIIfS)^^  ('3) 


where  q  is  the  integration  point  on  the  surface,  and 


2  ^  ^ 

(X-Xo)      +(L|-yo)      +(2-Zo)" 


r(P,q)  = 
is  the  distance  from  the  field  point  P  to  the  integration  point  q. 

The  source  density  distribution  function  must  satisfy  the  boundary 
conditions  for  the  disturbance  potential.    Boundary  conditions  (10)  and 
(12)  are  automatically  satisfied  by  the  form  of  the  integrand.   However, 
equation  (11),    the  velocity  normal  to  the  boundary,  combined  with  the 
Neumann  boundary  condition,  equation  (7),  is  the  key  to  solving  the 
boundary  integral  problem. 

The  integrand  becomes  singular  as  the  surface  of  the  body  is 
approached,!,  e.  |r|  goes  to  zero.  The  singularity  represents  the  local 
fluid  flux  normal  to  the  boundary  due  to  the  local  source  density.    The 
principal  value  of  the  singularity  is  -2Tra(p),  determined  through  a 
limiting  processof  the  Gauss  Flux  Theorem  (Kellogg  1929).    The  point  p 
represents  a  field  point  which  lies  on  the  boundary.  The  integral 
expression  is  now  composed  of  the  contribution  of  the  local  source 
density  and  the  contribution  of  the  source  density  function  over  the 
remainder  of  the  body  surface.  Solving  for  the  velocity  normal  to  the 
surface  yields  the  following  expression: 
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From  equation  (II).    this  expression  becomes: 


dr  (14) 


JJ  an    r(p,q 


dr    =  -n(p)  •  Y,^  (15) 


This  equation  is  a  two  dimensional  Fredholm  integral  equation  of  the 
second  kind,  which  ensures  a  unique  solution,  and  that  the  diagonal 
elements  of  the  system  matrix  will  be  dominant,  each  having  a  value  of 
27T  (Kellogg  1929).    Once  equation  (15)  has  been  solved  for  the  source 
density  o,  the  velocity  components  at  any  point  of  the  flow  field  may  be 
obtained  by  differentiating  the  disturbance  potential  function  (13)  with 
respect  to  the  coordinate  directions  and  adding  the  components  of  the 

freestream  flow,  S/^^. 


V(x,y,z)=    V«.  -    9ii    -    9ij    -    I^K  (16) 

dx  oy  02 


The  body  shape  does  not  have  to  be  slender,  axisymmetric,  or 
simply  connected,  allowing  for  analysis  of  interior  flow  and  a  wide  range 
of  applications  of  the  method.  The  only  restriction  imposed  on  the  form 
of  the  body  is  that  it  must  have  a  continuous  normal  vector. 
Discontinuities  in  the  right  hand  side  of  equation  (15)  will  produce 
unwanted  singularities.    Thus,  in  the  process  of  approximating  a  body 
which  has  distinct  corners,  where  there  is  clearly  a  discontinuity  in  the 
normal  vector,  the  corner  must  be  replaced  by  a  surface  with  some  finite 
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wh2r2  Poo  is  th2  static  pressure  at  infinity. 

3.3  NUHERICAL  MODEL 

In  order  to  represent  the  surface  of  a  body  in  the  domain 
mathematically,  the  body  may  be  described  by  analytical  expressions 
which  may  provide  an  exact  representation  of  the  surface.  However,  the 
types  of  bodies  which  can  be  adequately  described  by  such  methods  are 
severely  limited.    Another  way  to  represent  the  body  is  to  use  a  large 
number  of  analytical  expressions,  each  describing  only  a  small  portion  of 
the  body.  Hess  and  Smith  (1962)  suggested  the  use  of  an  assembly  of  flat 
quadrilateral  elements  to  model  the  actual  surface  of  the  body,  as  shown 
in  Figure  (3).  Each  quadrilateral  approximates  a  region  of  the  surface 
described  by  points  which  lie  on  the  actual  surface  of  the  body.  As  planar 
elements,  these  quadrilaterals  are  clearly  analytical,  and  when  carefully 
constructed,  the  elements  can  approximate  arbitrary  three  dimensional 
body  surfaces  without  restriction. 


^  z 

^  V 

X 

•/■•/'     1/''^"?— '^^ 

y^ 

T'ri.  If'  r~n~^'^f-^^^^ 

% 

w^    ( 

""■"" 

^^^ 

2^   "T  •          •  \_^ 

\.  \^^J  / 

t£ 

t: 

e  3.  Apfroximation  of  the  body  by  surface  elements 
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curvature.  However,  application  of  this  method  has  shown  that  the  flow 
calculations  give  correct  results  for  convex  corners,  while  unrounded 
concavecornersmay  or  may  not  produce  significant  error,  depending  on 
the  angle  produced  by  the  corner  (Hess  and  Smith  1962). 

Because  of  the  method  of  approximation,  the  calculation  of  flow 
velocities  on  the  body  surface  are  restricted  to  the  points  at  which  the 
boundary  conditions  were  applied.   Velocities  at  points  other  than  those 
must  be  obtained  by  interpolation.   Direct  calculation  of  velocities  at  the 
edge  of  an  element  yields  infinite  velocities. 

With  the  solution  of  the  system  of  linear  equations  for  the  source 
densities,  the  flow  velocities  at  any  point  in  the  domain  may  be  obtained 
from  equation  (16),  and  pressure  coefficients  are  then  computed  from  the 
velocities  using  a  form  of  the  Bernoulli  equation: 


P(t)  --^^     4r 
P 


dt 


(17) 


Where  P(t)  is  a  constant  independent  of  position.   In  the  XYZPF  Program, 
the  flow  is  steady.   Therefore,  equation  (17)  can  be  reduced  to 


P 


=  constant 


( 1 S) 


and  the  pressure  field  can  be  expressed  in  terms  of  a  dimensionless 
pressure  coefficient  Cp  as: 


P  -  P 


w 


1  - 


(19) 


00 
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TheXYZPF  Program  uses  the  discretization  procedure  described  by 
Hess  and  Smith  (1962)  with  some  minor  modifications.  The  three 
dimensional  body  surface  may  be  described  using  a  large  number  of  plane 
quadrilateral  elements,  each  assumed  to  have  a  constant  source  density 
over  the  area  of  each  element.    Regions  of  the  body  requiring  higher 
resolution  for  sharp  curvature  or  anticipated  velocity  gradients  will 
require  a  higher  concentration  of  elements. 

Because  the  plane  quadrilateral  elements  cannot  fit  edge  to  edge  on 
a  rounded  surf  ace.  small  gaps  in  the  panel  approximation  contribute  to  the 
error  of  the  approximation.   However,  the  error  due  to  the  gaps  is 
negligible  when  compared  with  the  error  of  the  basic  model,  that  is,  using 
flat  panels  to  approximate  a  curved  surf  ace.  Triangular  elements  have 
been  suggested  in  an  attempt  to  eliminate  the  gaps  (Levy  1959),  but  the 
increased  accuracy  is  so  small  that  it  may  not  justify  the  additional  work 
of  organizing  the  triangular  elements  in  lieu  of  the  simpler  quadrilaterals 
(Hess  and  Smith  1966).    The  method  presented  is  valid  for  an  polygonal 
element  with  any  number  of  sides. 

Equation  (15)  can  now  be  decomposed  into  a  summation  of 
integrals,  each  representing  the  contribution  of  one  element  of  the  body 
surface.  The  unknown  source  density  can  be  taken  outside  the  integral, 
since  it  is  assumed  to  be  a  constant  over  each  element.   The  integration  is 
performed  over  the  area  of  the  source  element,  and  the  boundary 
condition  equation  (11)   is  then  enforced  at  a  single  point  p  in  each 
remaining  element.   By  performing  this  operation  at  each  element  of  the 
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surface,  a  system  of  linear  equations  is  generated  which  is  equal  in 
number  to  the  number  of  surface  elements  and  the  number  of  unknown 
source  densities.   Equation  (15)  can  now  be  approximated  by  the  matrix 
equation  (Dawson  and  Dean  1972): 


.  =    y  a.  c-   +    V 


where 


^^J       211- J  J    dri^L  f  J 


(20) 


C„   =     0 


^'^    --^ 


n,   •    V, 


It  is  important  to  note  that  the  influence  coefficients  Cjj  and  Cjj  are 

functions  of  geometry  only,  and  once  computed,  need  not  be  recomputed 
for  analysis  of  several  different  flows.  From  the  solution  of  equation 
(20)  on  the  discretized  surface,  equation  (13)  may  be  applied  at  any  point 
in  the  domain.  Then,  the  velocity  at  an  arbitrary  field  point  P(x,  y,  z)  in 
the  domain  may  be  determined  from  equation  (16).    With  the  velocity 
known,  the  pressure  coefficient  is  determined  from  equation  (19). 
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4.0    ORGANIZATION  OF  THE  PROGRAM 

The  XYZPF  Program  is  actually  composed  of  seven  independent 
programs,  referred  to  as  sections  PFl  through  PF7.  each  of  which  builds 
on  data  generated  from  a  previous  section.  This  type  of  organization 
allows  the  user  the  flexibility  of  rerunning  portions  of  the  program  using 
different  flow  parameters  without  having  to  go  through  the  time 
consuming  process  of  recalculating  the  influence  coefficient  matrix, 
which  is  dependent  only  on  the  geometry  of  the  body.    While  the  NSRDC 
program  is  very  similar  to  the  Hess  program,  there  are  also  some 
significant  differences.  The  following  list  of  differences  is  taken  from 
NSRDC  Report  3892  (Dawson  and  Dean  1972): 

(1)  The  input  to  XYZ  PF  is  arranged  to  facilitate  the  preparation  of 
input  for  a  series  of  problems  in  which  only  one  part  of  the  body  is 
changed.  Also,  a  number  of  checks  are  made  on  the  input  to  help  detect 
errors. 

(2)  An  option  was  added  for  the  recomputation  of  the  source 
density  and  velocities  for  only  part  of  the  body  when  only  small  changes 
are  made.  This  option  also  provides  for  the  use  of  the  solution  of  one 
problem  as  an  initial  guess  for  the  solution  of  another  problem. 

(3)  The  matrix  of  influence  coefficients  is  computed  column  by 
column  instead  of  row  by  row.  This  column  arrangement  was  used  for  the 
original  LARC  computer  version  because  it  required  much  less  high  speed 
memory.  The  computation  is  also  about  10^  faster  this  way  than  with 
the  row-by-row  arrangement. 

(4)  A  simultaneous  displacement  iterative  scheme  is  used  to  solve 
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the  matrix  coefficient  for  the  source  density.    The  scheme  is  slower  than 
the  successive  displacement  (Gauss-Seidel)  scheme  used  in  the  Hess 
program,  but  it  can  be  carried  out  using  the  matrix  column  by  column 
instead  of  row  by  row. 

(5)  When  possible,  an  extrapolation  procedure  is  used  to  reduce  the 
number  of  iterations  required  for  convergence.  One  such  method  is  the 
Richardson  extrapolation. 

The  methods  used  in  the  XYZPF  Program  will  be  discussed  in  detail 
in  the  following  sections. 
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5.0  DETAILS  OF  THE  SURFACE  APPROXIMATION 

5.1  PREPARATION  OF  THE  INPUT 

Section  PFI  is  set  up  to  read  and  store  the  input  data,  and  to 
examine  the  cornerpoints  of  the  quadrilaterals  to  detect  obvious  errors  in 
the  input.   Because  of  the  number  of  points  which  may  have  to  be  entered 
for  a  complex  geometry,  the  user  input  is  a  major  source  of  program 
error,  and  this  first  look  for  input  errors  will  save  lot  of  run  time  in  the 
program  as  a  whole.  If  Section  PFI  detects  major  errors  in  the  input,  the 
program  will  not  continue  with  the  calculation  of  the  coefficient  matrix, 
but  will  stop  and  identify  the  grid  location  of  the  error.  Minor  errors  may 
not  cause  the  program  to  stop,  but  will  be  noted  in  the  output. 

One  of  the  major  advantages  to  this  program  is  in  the  organization 
of  the  input  data.   The  surface  is  input  in  sections  so  that  small  portions 
of  the  input  geometry  may  be  changed  without  having  to  recalculated  the 
points  for  the  entire  surface.  The  program  also  takes  advantage  of 
symmetry  to  minimize  the  input  effort.  Only  the  portion  of  the  body 
which  has  no  redundancy  needs  to  be  entered  point  by  point.  The 
remainder  of  the  body  is  reflected  across  the  planes  of  symmetry  by  the 
program  to  complete  the  surface  representation. 

The  surface  is  represented  by  a  set  of  points  in  three-dimensional 
space  which  lie  on  the  actual  surface,  and  which  will  later  be  used  to 
define  the  plane  quadrilateral  source  elements.    These  points  are  defined 
in  the  global  reference  system.   The  points  on  the  surface  should  be 
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selected  in  such  a  way  as  to  provide  an  accurate  representation  of  the 
surface  with  the  fewest  number  of  points  possible.  Portions  of  the 
surface  which  are  highly  curved  will  require  a  larger  number  of  points  to 
provide  adequate  resolution.  Additionally,  portions  of  the  surface  in 
which  the  flow  field  is  expected  to  change  rapidly  will  require  a  large 
number  of  points  to  accurately  determine  the  flow  field  in  that  region. 
Some  familiarity  with  fluid  dynamics  will  provide  a  somewhat  intuitive 
approach  to  properly  distributing  the  elements.   Elements  should  change 
gradually  in  size  from  areas  of  high  concentration  to  those  of  just  a  few 
large  elements,  changing  no  more  than  50  percent  in  size  between 
adjacent  elements  (Hess  and  Smith  1966).    The  accuracy  is  only  as  good  as 
that  provided  by  the  largest  element  in  a  particular  area.  The  use  of 
quadrilateral  elements  facilitates  the  use  of  known  analytical  equations 
and  body  contours  to  determine  the  input  points. 
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Fi^re  4.  The  3D  (^drUateral  element  in  global  coordhates 


For  the  purposes  of  this  program,  the  body  surface  is  represented 
by  a  large  number  of  plane  quadrilateral  elements  as  shown  in  figure  (3), 
each  of  which  is  assumed  to  have  a  constant  value  of  source  density  over 
the  area  of  the  element.  Each  element  is  defined  by  four  input  points 
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which  lie  on  the  actual  surface  as  shown  in  figure  (4).  Since  each  input 
point  can  be  used  as  a  corner  for  up  to  four  elements,  there  is  no  need  to 
enter  the  same  point  four  separate  times.   The  input  points  are  organized 
in  groups  of  four  to  form  the  quadrilateral  element,  and  each  point  may 
also  be  associated  with  adjacent  quadrilaterals.    This  is  accomplished 
through  the  use  of  a  two  dimensional  coordinate  system  in  which  the  user 
assigns  a  pair  of  integers,  m  and  n,  to  each  point  which  identifies  the 
"row"  and  the  "column"  in  which  it  lies.  A  column  of  points  will  be  given 
a  common  value  of  n,  and  each  point  in  that  column  will  have  a  unique 
value  of  m  corresponding  to  the  row  in  which  the  point  lies.   The 
orientation  of  these  "coordinate"  integers  determines  the  direction  of  the 
outward  normal  for  each  element.   Looking  from  the  flow  field  toward 
the  section  of  elements,  if  the  values  of  m  are  increasing  upward,  the 
values  of  n  must  increase  to  the  right,   increasing  m  and  n  can  point  in  any 
direction  with  respect  to  the  global  reference  system.   In  fact,  the 
orientation  can  change  from  one  section  to  another.  However,  any  other 
relationship  between  m  and  n  will  produce  an  incorrect  normal  vector. 
Once  assigned,  the  values  of  m  and  n  also  serve  to  identify  the  element 
for  which  the  corresponding  point  is  a  corner.  The  four  points  which 
form  a  quadrilateral  element  are  two  points  of  one  column,  or  n  line,  with 
consecutive  m  numbers,  and  two  points  of  the  next  higher  n  line  with  the 
same  m  numbers  as  the  previous  two  points.     Thus,  the  element  m.  n  is 
composedof  the  points  identified  by  (m,  n),  (m+1,  n),  (m,  n+1),  and  (m+1, 
n+1). 
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Fifwe  5.  Ou«fenTatera1  index  manbers 

Each  section  of  the  body  surface  is  formed  by  specifying  a  set  of 
corner  points  corresponding  to  the  m,  n  pairs  for  all  of  the  quadrilaterals 
of  the  section.  The  user  will  sequentially  assign  an  m  number  to  the 
points  for  each  n  line,  and  also  number  the  n  lines  for  the  section  points 
entered.   The  first  point  in  each  n  line  will  always  have  m  =  1.    The  n  lines 
are  also  numbered  sequentially,  but  the  value  of  n  is  not  reset  for  each 
new  section.  The  sequence  of  n  numbers  runs  through  all  the  sections  as 
shown  in  figure  (5).  Points  on  a  particular  row  or  column  do  not  have  to 
be  strictly  colinear.  By  forming  nearly  triangular  elements,  a  rounded 
planform  can  be  approximated  without  conflicting  with  the  numbering 
convention,  as  shown  in  figure  (6). 
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Figwe  6.  Approximating  a  thin  region  vith  rounded  pl«)form  (Hess  &  Smith  1 962) 

By  entering  data  in  sections,  small  changes  in  geometry  can  be 
performed  without  having  to  reenter  all  the  points  associated  with  the 
body  surface.  This  feature  is  unique  to  the  XYZPF  Program,  and  offers  a 
great  deal  of  flexibility   in  design  work.  However,  with  the  added 
flexibility   comes  more  restrictions  on  both  the  input  of  the  original 
geometry  and  on  any  modifications.   There  are  four  important 
restrictions  on  the  input  which  are  required  to  provide  quadrilateral 
elements  in  groups  of  four  to  facilitate  geometry  calculations  (Dawson 
and  Dean  1972): 

(1)  There  must  be  an  even  number  of  elements  in  both  the  m  and  n 
directions  in  each  section  of  the  body. 

(2)  The  common  corner  point  of  a  group  of  four  elements  must  not 
coincide  with  any  other  corner  point.  The  sides  between  the  elements 
serve  to  define  the  local  coordinate  system,  and  serve  as  the  axis  of 
rotation  when  the  surface  is  flattened  for  numerical  differentiation  of 
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the  velocity  potential. 

(3)  Each  set  of  four  elements  must  have  at  least  seven  distinct 
corner  points  to  allow  the  elements  to  more  closely  conform  to  a  curved 
surface.  This  also  allows  for  convergenceof  N-lines  or  M-lines  as  may 
occur,  for  example,  at  the  leading  edge  of  an  ellipsoid.   Thus,  only  two  of 
the  four  quadrilateral  may  degenerate  into  triangles  by  having  two  of 
their  corner  points  coincide.  This  does  not  necessarily  eliminate  the 
possibility  of  more  than  two  "triangular"  elements  since  the  adjacent 
sides  of  a  quadrilateral  may  be  colinear  as  shown  in  figure  (6). 

(4)  The  normal  vectors  between  two  adjacent  quadrilaterals  in  a 
group  of  four  must  be  less  than  90  degrees  and  preferably  less  than  45 
degrees.  If  a  sharp  edge  is  required,  it  should  be  a  concavecornerwith 
respect  to  the  flow  field,  and  the  input  should  be  arranged  so  that  the 
edge  is  along  an  outside  boundary  of  the  groups  of  four,  and  not  through 
the  center. 

When  making  small  changes  to  the  original  geometry,  the  number  of 
elements  used  in  a  new  section  must  be  the  same  as  the  number  used  in 
the  original  section  unless  the  part  being  changed  is  at  the  end  of  the 
input  data.  Section  configurations  may  be  selected  by  natural  divisions, 
as  a  matter  of  convenience  to  more  easily  handle  large  numbers  of  points, 
or  as  a  tool  to  take  advantage  of  symmetry. 

In  setting  up  input  data  to  use  planes  of  symmetry,  it  is  important 
to  note  that  the  XYZPF  Program  has  certain  restrictions  on  the  choice  of 
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symmetry  planes.  The  user  only  has  the  option  to  select  the  number  of 
symmetry  planes.  The  planes  which  will  be  used  as  symmetry  planes  are 
preselected  by  the  program  to  optimize  the  calculation  procedure. 
Therefore,  knowing  this,  the  preparation  of  input  data  must  consider  the 
following  restrictions  imposed  by  the  program  (Dean  and  Dawson  1972). 

If  only  one  plane  of  symmetry  is  used,  the  plane  of  symmetry  is  the 
y  =  0  plane  of  the  global  coordinate  system.   As  such,  all  the  y 
coordinates  of  the  input  points  must  be  of  the  same  sign,  i.  e.,  all 
positive  or  all  negative,  if  the  body  is  closed  and  intersects  the  plane  of 
symmetry,  the  points  touching  the  plane,  i.  e..  corresponding  to  y  =  0. 
must  also  be  entered  with  the  input  points. 

If  two  planes  of  symmetry  are  used,  the  planes  of  symmetry  are  the 
y  =  0  plane  and  the  z  =  0  plane  in  the  global  coordinate  system.   Again,  the 
y  coordinates  of  all  input  points  must  have  the  same  sign,  positive  or 
negative,  and  the  z  coordinates  of  all  points  must  be  of  the  same  sign, 
positive  or  negative  without  regard  to  the  sign  of  y.  If  the  body  surface 
intersects  one  or  both  of  the  planes  of  symmetry,  the  points  which  lie  in 
the  plane,  i.  e..  those  corresponding  to  y  =  0  or  z  =  0.  must  also  be  entered 
with  the  input  points. 

If  three  planes  of  symmetry  are  used,  clearly  the  planes  are  the 
reference  planes  of  the  global  coordinate  system.   As  with  the  previous 
cases,  all  the  x  coordinates  of  the  input  points  must  be  of  the  same  sign, 
and  similarly  for  the  y  and  z  coordinates.  If  any  part  of  the  body 
intersects  any  of  the  planes  of  symmetry,  the  points  which  lie  in  that 
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plane,  i.  e.,  x  =  0,  y  =  0  or  z  =  0,  must  also  be  entered  with  the  input 
points. 

5.2    SOURCE  PANEL  GEOMETRY 


Fi9ar«  7.  The  outer  normal  to  the  quatbilateral  etement 

With  the  surface  points  identified  Dy  the  location  numbers,  m  andn, 
and  arranged  in  accordancewith  program  requirements,  calculation  of 
various  aspects  of  the  source  panel  geometry  and  formation  of  the  plane 
quadrilateral  element  is  the  next  step  in  the  numerical  integration 
process.  Formation  of  all  of  the  planar  elements  is  identical,  so  the 
following  discussion  of  source  panel  geometry  will  deal  with  only  one 
characteristic  element.   The  four  corner  points  forming  the  basic 
quadrilateral  are  numbered  in  a  clockwise  direction  from  1  to  4  as  shown 
in  figure  (7).  It  does  not  matter  which  corner  point  is  identified  with  the 
number  1  subscript,  but  the  remaining  points  must  be  numbered 
consecutively  in  a  clockwise  direction  when  observed  from  the  flow  field 
in  order  to  ensure  an  outward  directed  normal  vector.  These  subscripts 
will  be  used  to  identify  the  corner  points  for  the  remainder  of  this 
discussion.  For  this  example,  the  points  will  be  identified  as  follows: 
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Position 

Numbers 

Global  Coordinates 

m,  n 

'^1 .  Y,  ,  Zi 

m+1.  n 

'^2  •  ^2  ,  Z2 

m+1,  n+1 

X3 .  Y3 .  Z3 

m,  n+1 

X4  ,  Y4  ,  Z4 

in  forming  the  plane  quadrilateral  elements,  the  corner  points, 
which  are  generally  not  coplanar,  are  used  to  form  the  local  coordinate 
system,  relative  to  the  element.   Recalling  that  the  crossproduct  of  two 
vectors  yields  a  vector  solution  which  is  perpendicular  to  both  of  the 
original  vectors,  the  normal  to  the  element  may  be  obtained  from  the 
crossproduct  of  the  diagonals  of  the  element. 

N  =  T24  X   Ti3  (21) 

where  T13  is  the  vector  from  point  1  to  point  3,  and  T24  is  the  vector 
from  corner  point  2  to  point  4.  The  unit  normal  is  then: 


T24-     Ti3 


n   = 


T24'^      Tl3 


(22) 


This  unit  normal  now  represents  the  first  of  the  three  local 
coordinate  directions,  this  one  in  the  C  direction.  The  side  of  the 
quadrilateral  from  point  2  to  point  3  is  then  used  to  obtain  the  second 
coordinate  vector. 
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Figwe  8.  The  second  local  coordinate  vector 


No  =  n    ^    T 


23 


(23) 


and  the  unit  vector 


Tio    = 


N' 


N2 


(24) 


Slmiiarly,  the  third  locai  coordinate  vector  is  obtained  from  the 
cross  product  of  n2  and  n,  the  result  of  which  is  a  unit  vector. 


n,2 


^^2,7 


^  n,,x 


Figare  9.  The  thrd  local  coordinate  rector 


n3  =    n2  ^    n 


(25) 


The  unit  vectors  n3.  n2.  and  n  form  an  orthonormai  basis  and  define 
the  local  coordinate  system  for  the  element  in  the  ^  t|,  and  C  directions 
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respectively.  Other  methods  of  obtaining  an  orthonormal  basis  could  be 
used  just  as  well,  and  would  make  no  difference  to  the  remaining 
computations.  The  origin  of  the  local  coordinate  system  would  most 
correctly  be  located  at  the  "null  point,"  the  point  at  which  the  velocity 
potential  has  no  contribution  to  the  tangential  velocity  component  on  the 
source  element.   The  null  point  is  the  point  in  each  quadrilateral  element 
where  the  normal  velocity  boundary  condition  is  applied.   However,  with 
the  exception  of  long,  thin  quadrilaterals,  the  physical  difference  between 
the  null  point  and  the  centroid  of  the  quadrilateral  Is  not  significant.    The 
XYZPF  Program  will  print  a  warning  in  the  output  when  a  quadrilateral  is 
long  and  thin  enough  to  Jeopardize  the  accuracy  of  the  approximation  in 
that  region.  By  locating  the  origin  of  the  local  coordinate  system  at  the 
centroid,  rather  than  at  the  null  point,  the  difficult  process  of  locating 
the  null  point  for  each  element  can  be  eliminated,  later  calculations  of 
the  multipole  expansion  can  be  simplified,  and  the  boundary  conditions 
can  be  applied  at  the  centroid  without  contributing  significant  error  to 
the  approximation  (Hess  and  Smith  1966).    Therefore,  the  origin  for  each 
local  coordinate  system  is  located  at  the  centroid  for  the  respective 
element. 
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5.3    LOCATING  THE  CENTROID 


Fifare  1 0.  Locating  the  centroid  of  the  quadnUteral 

The  centroid  of  the  element  may  be  calculated  by  first  dividing  the 
area  of  the  quadrilateral  into  two  triangular  areas,  the  triangles  being 
separated  by  the  line  from  point  2  to  point  4.  The  area  A^  of  the  triangle 
defined  by  corner  points  2,  3,  and  4  is 


M     - 


T24'^     T23 


(26) 


Similarly,  the  area  A2  0f  the  triangle  defined  by  corner  points  1,  2,  and  4 


A'..     = 


T12  '^     Ti4 


'.27; 


in  the  global  coordinate  system,  the  X  componentof  the  centroid  is 


given  by 


AiXi  *    A2X2 
Ai   +    A2 


(28) 


where  Xi  and  X2  are  the  averages  of  the  X  components  of  the  corner 
points  of  each  triangle.    Substituting   the  values  for  X|  and  X2: 
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X     = 


4-Ai(X2  +  X3+X4)   +  tA2(Xi  +  X2  +  X4) 
Ai      +     A2 


(Ai  +  A2)X2  -^   (Ai  4  A2)X4  ^  A1X3  ^  A2X1 
Ai      +      A2 


+   X. 


AiX3-^A2Xi 


A 


A7 


Similarly 


1^; 
f 


V^     .     ^4     . 


A1V3     +  A2V1 

Ai      +      A2 


^-0) 


{: 


"■    -      T 


L2     +     ^4     +     

Ai      +     A2 


(31) 


5.4    COORDINATE  TRANSFORMATION 

Now  that  the  local  coordinate  system  is  formed  and  properly 
located  at  the  centroid  of  the  element,   the  global  coordinates  of  the 
corner  points  (X,  Y.  Z)  are  transformed  to  local  coordinates  H,  t\,  0 
through  the  components  of  the  reference  vectors  of  the  local  coordinate 
system  as  follows: 


""3, 

"Sy 

"3z 

X  - 

-  X 

^ 

"2x 

"2y 

"2z 

S^  ■ 

-   V 

r 

n 

"x 

ny 

Hz 

_  z  - 

-  z  _ 

.e 

(32) 
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The  corner  points  are  projected  into  the  plane  of  the  quadrilateral 
element  by  setting  the  t  components  to  zero.  The  original  diagonal 
vectors.  1^3  and  T24.  will  be  on  opposite  sides  of  the  resulting  plane.  The 
plane  quadrilateral  element  is  now  completely  defined.  The  program  will 
sweep  through  all  of  the  input  elements  using  the  assigned  location 
numbers,  and  repeat  this  process  for  each  element. 


Fi^we  1 1 .  Forming  the  pUn«  qu«Hlat»ra1  element 
5.5    MOMENTS  OF  INERTIA 

The  calculation  of  the  moments  of  inertia  for  each  element  are 
performed  for  use  in  the  computation  of  the  velocity  coefficients  using 
the  quadrupole  method.  Any  calculus  text  will  give  the  moments  of 
inertia  of  a  planar  section  with  a  constant  unit  density  about  the  origin 
to  be: 


yy 


ff  r'  d^: 


dri 


A 


O   T  dS  drt 


iH 


Ix.     = 


&  ^  ^'[  d|  d- 
A 


(33) 


(34) 


(35) 
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For  the  triangular  region  defined  by  ttie  corner  points  2,  3,  and  4, 


Ixx   =    IJ    K  «2  *  «3  )'  *  (  43  *  ^4)'  -  (  ?4  -  «2  F  I  (36) 


I  yy    =    TT  li'^.Z*  Tl.3  )'  -^  <•  Tl3  +  'ri4  )^  +  (  '0.4  +  'Qs  )^  1  (37) 


^ 


Ixu    =    TT:   H^z-"  ^■Z^^'^Z*  ''■13  )-'U3  +  t%)(Tl3  +  TI4  )         (38) 
1  i 

+  (44^?2)(Tl4^^l2)l 

Similar  equations  can  be  generated  for  the  triangular  region  defined  by 
the  corner  points  1,  2,  and  4.  The  moment  of  inertia  for  the  entire 
quadrilateral  is  the  sum  of  the  corresponding  expressions  for  each  of  the 
triangles.    The  resulting  equations  are: 


I  ^ 


Ixy    =    TTT    U£:2  +  ^,?.  )(T|2  +  Tu)  +  (  ^:3  +  £:4)(T1,.  +  TU)  (41) 


+  (^4  +  ^2)(^l4  +  Tl2)l 
-  f(^.    +^o 


A 
+   —  1(^1   +^2)(^1   -^  112  '^    ■"  (^2-'^4)(T\2  +  Tl4) 


+  (^4  +  ^1  )(-a4  +  Ti, )] 
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fi  n  THF  MATRIX  OF  INFLUENCE  COEFFICIENTS 

With  the  quadrilaterals  completely  formed,  the  next  step  is  to 
calculate  the  velocities  induced  by  the  elements  at  the  centroids  of  all 
the  other  elements.   The  total  number  of  elements  forming  the  surface 
will  be  represented  by  N.  Let  the  source  element  be  the  (j)th  element,  and 
the  element  for  which  the  velocity  components  are  to  be  calculated  at  the 
centroid  is  the  (i)th  element,   it  does  not  matter  how  the  (i)th  elements 
are  arranged  in  relation  to  each  other  as  the  sequence  progresses. 
However,  the  sequence  must  be  consistent  as  the  calculations  proceed 
from  one  source  element  to  another.  This  program  sweeps  through  the 
(i)th  elements  in  the  order  of  their  location  numbers,  m  and  n.  For  each 
consecutive  n  line,  the  elements  are  swept  in  order  of  increasing  m 
numbers. 

The  result  of  the  induced  velocity  calculations  for  the  elements 
with  unit  source  densities  is  an  N  by  N  square  matrix  of  the  values  of 
induced  velocities  at  each  element,  known  also  as  the  "matrix  of 
influence  coefficients."    The  XYZ  potential  flow  program  calculates  the 
coefficients  column  by  column,  while  the  Hess  program  calculates  them 
row  by  row.  The  advantage  of  one  over  the  other  depends  on  the  method 
of  later  solving  the  matrix  for  the  source  densities.   In  calculating  the 
influence  coefficients,  twenty-five  quantities  which  describe  the 
geometry  of  the  source  element  are  required  to  adequately  calculate  the 
induced  velocity  at  the  centroid  of  the  (i)th  element.   These  quantities 
include  the  coordinates  of  the  centroid  in  the  global  coordinate  system, 
the  elements  of  the  coordinate  transformation  matrix,  the  local 
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coordinates  of  the  corner  points,  the  maximum  diagonal,  the  area,  and  the 
second  moments  of  the  quadrilateral  element.   Additionally,  the  Hess 
program  uses  the  coordinates  of  the  null  point,  making  a  total  of 
twenty-eight  quantities  for  that  method  (Hess  and  Smith  1962). 

When  calculating  row  by  row.  the  first  (i)th  element  is  selected, 
containing  the  "null"  point,  and  the  influence  coefficients  are  computed 
for  all  of  the  (j)th  elements  in  sequence  before  proceeding  to  the  (i+Oth 
element.   This  procedure  requires  the  twenty-five  quantities  for  each 
(j)th  element  to  be  available  for  calculation  of  the  influence  coefficient. 
Because  each  of  the  N  (j)th  elements  is  used  N  times  with  this  procedure, 
calculating  the  geometric  quantities  or  retrieving  the  values  from  low 
speed  memory  would  be  very  time  consuming,  since  the  calculations  or 
memory  access  would  need  to  be  performed  N^  times.    Therefore,  it  is 
more  practical  to  have  the  values  available  in  high  speed  memory, 
although  large  matrices  may  exceed  the  storage  capacity  of  high  speed 
memory,  imposing  a  limit  on  the  number  of  elements  which  can  be  used. 
The  advantage  to  the  row-by-row  calculation  is  that  solution  of  the 
resulting  matrix  by  the  Gauss-Seidel  reduction  method  does  not  require 
transposing  the  matrix,  which  would  be  another  time  consuming  process 
(Hess  and  Smith  1962). 

Another  alternative  is  calculation  of  the  influence  coefficients 
column  by  column.  This  method  calculates  the  influence  coefficients  by 
sweeping  all  the  (i)th  elements  for  each  (j)th  element  before  proceeding 
to  the  (j+1)th   element.   Therefore,  the  twenty-five  geometric  quantities 
are  retrieved  from  low  speed  storage  only  once  for  each  (j)th  element. 
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for  a  total  of  N  times.    This  procedure  is  not  limited  by  the  capacity  of 
high  speed  memory,  and  calculation  of  the  coefficient  matrix  is 
approximately  10^  faster  than  the  row-by-row  method  (Dawson  and  Dean 
1972).    This  is  the  calculation  method  used  by  the  XYZ  Potential  Flow 
Program. 

An  influence  coefficient  represents  the  combined  effects  on  one 
element  of  the  velocity  potentials  of  all  the  other  elements  comprising 
the  body  surf  ace.  For  the  quadrilateral  element  with  a  unit  source  density 
in  the  xy-plane,  from  equation  (13),  the  potential  at  point  P  (x,  y,  z)due 
to  the  element  is 


A 


J  (x  -  a"  +  (y  -  Ti)"  +  r 


The  integrand,  l/r,  can  be  expanded  in  a  series  about  the  origin  in 
powers  of  ^  and  "q.   Each  term  of  the  series  will  contain  the  product  of 
some  powers  of  I  and  t|  with  a  corresponding  derivative  of  l/rg,  where  rg 
is  the  distance  of  the  field  point  P  from  the  quadrilateral  origin. 


7         9        ; 
To   =  ,J  X-  +    y-  +  2' 


and  let 

1 


Y'l'  = 


fo 


Then  the  series  expansion  through  the  second  order  term  is  (Hess  and 
Smith  1962): 
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(p    =    AW    -    (n,Wj^     *     MyWy)     *      1/2(1     ,,  Wj^x      -     2    I,y  W,y      +     I^yWyy)    ^     .     .     .  (43) 


The  subscripts,  x  and  y.  used  with  w  represent  the  respective  partial 
derivatives.   This  series  represents  the  multipole  expansion  of  the 
velocity  potential,  since  each  term  can  be  interpreted  as  a  point 
singularity  of  a  particular  order.  The  first  term  is  the  potential  at  point 
P  due  to  a  point  source  of  strength  A  located  at  the  origin.   The  second 

term  is  the  sum  of  two  dipoles  of  strengths  n^^  and  M^,  located  at  the 

origin,  oriented  along  the  x  and  y  axis  respectively.   The  choice  of  the 
centroid  of  the  quadrilateral  as  the  origin  of  the  local  coordinate  system 

causes  the  first  moments,  N^^  and  (1^,,  to  be  zero.  Therefore,  the  dipole 

terms  dissappear,  and  are  not  dealt  with  anywhere  in  the  program.  The 

third  term  is  the  sum  of  three  quadrupoles  of  strengths  I^^^,  \^^,  and  Ly 

located  at  the  origin.   Kellogg  (1929)  shows  that  this  second  order 
approximation  is  absolutely  and  uniformly  convergent,  and  Hess  and  Smith 
(1962)  show  that  convergenceis  rapid  enough  with  an  increase  in  rg  that 
certain  further  approximations  may  be  made  without  significant  error  at 
large  distances  rg  from  the  source  quadrilateral. 

Hess  and  Smith  (1962)  presented  a  comparison  of  velocities 
calculated  using  the  exact  formulas,  a  simple  point  source,  and  a  second 
order  approximation.   The  comparisons  were  based  on  the  ratio  of  the 
distance  rg,  between  the  centroid  of  the  source  quadrilateral  and  the  field 
point  P,  to  the  length  of  the  maximum  dimension  t,  of  the  source 
quadrilateral,  typically  the  maximum  diagonal.  The  non-dimensional  ratio 
is  then  rg/t.  The  results  show  that  sufficient  accuracy  is  maintained 
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while  using  a  simple  point  source  at  ratios  of  (rg/t)  >  4,  using  the  second 
order  source  and  quadrupole  solution  for  the  range  2.45  <  (ro/t)  <  4.  and 
using  the  exact  solution  for  ratios  of  (ro/t)  <  2.45.  In  any  case,  the  error 
goes  to  Infinity  as  the  field  point  approaches  the  edge  of  the  quadrilateral 
where  calculations  indicate  an  infinite  velocity.  The  XYZ  Potential  Flow 
Program  uses  a  monopole  source  for  (rg/t)  >  4,  the  source-  quadrupole 
formulae  for  2  <  (rg/t)  <  4,  and  the  exact  formulae  for  (rg/t)  <  2.  Hess 
and  Smith  (1962)  reported  a  maximum  error  of  0.001  in  approximating  any 
velocity  component  using  the  above  criteria. 
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7.0    DERIVATION  OF  THE  EXACT  SOURCE  PANEL  INTEGRATION 

From  equations  (2)  and  (42).  the  components  of  the  velocity  at  the 
field  point  P(x.  y.  z)due  to  the  source  quadrilateral  are: 


(44) 


(45) 


(46) 


Vx     =    ■ 

ax 

-     CI  p        ^-^       ~"    -->   -    l 

A 

Vy     =    - 

af 
9y 

rff,        ^y  -   '^0    d^    dTI 

A 

69 

a        2  ^K  dri 

Equations  (44),  (45)  and  (46)  are  evaluated  by  expressing  each  of 
the  integrals  as  the  sum  of  four  terms,  each  term  representing  the  effect 
of  one  side  of  the  quadrilateral  (Hess  and  Smith  1962).    This  method  can 
also  be  generalized  for  polygonal  elements  with  any  number  of  sides.   The 
potential  function  for  each  side  of  the  quadrilateral  is  the  combined 
potentials  of  semi-infinite  strips  whose  boundaries  are  the  side  of  the 
quadrilateral  and  two  semi-infinite  lines  parallel  to  either  the  x  or  y 
axis.   When  observed  from  the  domain,  and  the  sides  are  traversed  in  a 
clockwise  direction,  the  source  strip  on  the  right  will  have  a  source 
density  of  a  =  +1/2  and  the  source  strip  on  the  left  will  have  a  source 
density  of  O  =  -1/2  as  shown  in  figure  (12).    When  the  sides  are 
recombined  to  f orm  the  quadrilateral,  the  source  densities  outside  the 
quadrilateral  cancel  each  other,  and  the  source  densities  within  the 
quadrilateral  combine  to  form  a  source  density  of  a  =  +1.    This  will  be 
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true  for  a  planar  element  with  any  number  of  sides  and  in  any  relative 
orientation  within  the  plane. 
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Fifwe  1 2.  Fundamental  potential  fwctions  for  sx^  of  a  quad'ilateral  (Hess  &  Srmth  1 962) 

7.1     THE  Y  VELOCITY  COMPONENT 

From  equation  (45),  the  velocity  component  V^  is  found  by  summing 

the  four  terms  representing  the  contributions  of  the  sides  of  the 
quadrilateral.    For  the  side  from  point  (5^,  -q,)  to  point  (^2'  '^2)»  ^^^ 
contribution  is  expressed  as  the  integral  over  the  area  of  the 
semi-infinite  strips  with  the  source  densities  of  o  =  +1/2  and  o  =  -1/2 
rather  than  the  unit  source  density  of  equation  (45). 


K^  O 


'yi2 


40 


Integrating  with  respect  to  t\: 


V 


yi2 


l(x-£:)''  +  (y-Ti)'  +  22] 


-7  '=^   I't' 


TliC 


[(x-0'  +  (y-Ti)'  +  z^]^^ 


o  ,U 


-00 


r    >•  »•  \  ii       '  ■'2        -,2  1 

[i.x  -  i.)  +!y  -  T|r  +  z^j 


oo 


[(x-^)'  +  (y-Ti)'  +  z^]^^ 


,) 


The  terms  evaluated  at  t)  =  +«>  and  t]  =  -«>  cancel,  and  the  terms  evaluated 
at  Ti  =  1)12  2^^  ^o  obtain  the  following  expression: 


,  f^^ 


■  L 


-  J  ^,  [{\K  -  <r  +  iy  -  Tir  +  z  n 


'yi2 


r'^^  d^ 
J.  - 


(48) 


Equation  (48)  is  changed  to  a  function  of  arclength  s  by  the  relation 


_dC 
ds 


t'y  -t 


•'1 


1^2"  slJ     ^  t  11-2 


•1  ' 


di9 


(49) 


where  di2  is  the  length  of  the  side  of  the  quadrilateral  from  (^i,  t[{)  to 
(^2.  'Rz)  35  shown  in  figure  (13). 
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FJgwc  1 3.  The  potential  due  to  a  finite  line  source  (Hess  &  Smith  1 962) 


Substituting  equation  (49)  into  equation  (48) 


V,.  . 


^2-t\      f      ds 


(50) 


'12 


From  figure  (13),  it  can  be  seen  that,  in  terms  of  arclength  s,  the  distance 
r  from  point  P  to  any  point  on  the  line  from  point  1  to  point  2  is  given  by 


r  =  .J  f^  +  (si  -  Si- 


Substituting  into  equation  (50)  yields 


Vl 


.'^'  i''*  ^ 

-12         Jo 


ds 

^  t-   +  (Si  -  S)^' 


^2-Ci     r^'^         ds 

^12  Jo      .^Jf2   +  (S-Si)^' 


(51) 
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Evaluating  the  integral 


V, 


y!£  - 


di2 


log 


(S  -  Si  )  +  .J  f2   +  (S-Si)' 


»l£ 


_    ^^-^1  r„ 


d;7-V°9     ^di2-Sl)-.,|t2.(d,.-S,)^ 


log 


(-Si)g^2,(_c^)2 


^:2  -  e 


1  r 


^— — |lcg(r2-S2)-log(r, -st)j 


di2 


loa 


(r2-S2) 

'  (n-si) 


:52) 


The  quantities  r^,  r2,  s^,  and  S2  used  in  equation  (52)  are  as  shown  in 
figure  (13).    Equation  (52)  is  singular  when  r^  =  s^,  which  occurswhen  the 
field  point  P  is  located  anywhere  along  the  line  defined  by  the  side  of  the 
quadrilateral.    This  singularity  may  be  removed  by  using  the  law  of 
cosines  (Hess  and  Smith  1952). 
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Ffgore  1 4.  The  lav  of  cosines 
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From  equation  (52) 


V, 


yi£  - 


12-  c,i    ,      r2(l  -  cos  |>2) 
log 


(53) 


cli2  ^  n(l  -cos  3^) 

where  ^i  and  ^2  3re  the  interior  angles  shown  in  figure  (13).    Applying  the 
law  of  cosines  to  figure  (13) 


cos  3 1  = 


T?   +  d,2'   -  f'2^ 


2r|di2 


r-r  +  di?-  -  rr 


cos  ^2  = 


2r2di2 


r.'^  -  di/'  -  r/ 


V  r 


r2Q|2 


(55) 


From  equations  (54)  and  (55): 


r2(i  -  cos  32) 
nd  -  cos  3i) 


rr  -  di2^  -  V- 
2r2d,2 


f  C  +  di2    -  f  2 

2r,d,2 


2-1 


■■>    _ 


2r2d|2  -  v{-  +  d!2^  +  V2 
2r2di2 

2r,d,2-r2  -  di2^  +  r.^ 


2r,d|2 


►-2 


2r2di2-r,'  +  d|2'  +  r2'  (r2  +  d|2)'' -  n' 


2r,d|2-r,2  -  di2'  +  ^2^ 


-(r, -di2)^+r2^ 


[(r2  +  di2)  +  nl  Wi  +  di2)  -  ni        n  +  ^2  +  d.2 


[r2  +  (r, -d,2)]  [r2-(r, -d!2)]         H  +  f"2  -  di2 


K^t} 


AA 


Substituting  equation  (56)  into  equation  (53)  yields  the  final  form  of  the 
exact  equation  of  the  y  component  of  the  velocity  induced  by  the  side  of 
the  quadrilateral  from  point  1  to  point  2: 


012  n  +  ^2-di2 


Equation  (57)  is  applied  to  the  remaining  sides  of  the  quadrilateral 
simply  by  substituting  the  appropriate  point  numbers  for  the  corner 
points  of  each  side.  The  total  contribution  of  the  quadrilateral  to  the  y 
component  of  the  velocity  is  the  sum  of  the  four  terms  representing  the 
contributions  of  each  of  the  sides.  The  y  component  of  the  velocity  at 
the  field  point  P  is  now  given  by: 


V.  = 


lOQ  — '■ '■ —  1                        lOQ 

f  2  +  ^3  +  ^23 

dl2         ■'"    n+f2-di2    ■         d23         '"^ 

r2  +  r3-d23 

tA-t^,    ,         r3,+  r4  +  dT4         ^1  -^,4    , 
— 5 loq —  +  — -; log 

^34                    f'3+f'4-ClT4               ^41 

r4  +  r^  +  CI41 
r4  +  n  -  d4i 

(58) 


7.2    THE  X  VELOCITY  COMPONENT 

A  similar  derivation  process  is  used  to  produce  the  equation  for  the  x 
component  of  the  velocity  induced  by  the  side  of  the  quadrilateral  from 
point!  to  point  2.  The  semi-infinite  source  strips  are  constructed 
parallel  to  the  x  axis,  and  the  order  of  integration  is  reversed. 
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The  X  component  of  the  velocity  at  the  field  point  P  due  to  the 
quadrilateral  is  given  by: 


■n2-^'l.1     ,  r,  +  '^2+d,2         'n3-Tl2     ,  12+13  +  ^23 

di2  h  +  '2-  di2  Q23  f2  +  f^3-  d25 

(59) 

'n4-Ti3           r3  +  r4  +  clT4      Tli-%   ,       r4+ri  +  (J4i 
loq —  +  — 3 log 


'^34  '^3+^4-  d34  ^41  ^    r4  +  ri  -  d 


41 


7.3    THE  Z  VELOCITY  COMPONENT 

The  z  component  of  the  velocity  at  the  field  point  P  due  to  the 
quadrilateral  is  obtained  in  a  similar  fashion,  using  semi-infinite  source 
strips,  this  time  parallel  to  the  y  axis.   From  equation  (46),  the 
fundamental  velocity  potential  of  the  semi  infinite  source  strips  is 
integrated  in  a  manner  similar  to  that  used  to  obtain  equation  (47),  and 
the  z  component  of  the  velocity  due  to  the  side  from  (^,.  ti^)  to  (C2.  ^12)  's 
given  by 


(60) 


^  J  ^1       LJ-00  -^^i^iHiK-  o^^in-TiT  +  z^]^^ 


Performing  the  integration  with  respect  to  j\,  the  integral 


J 


d'H 


[(x-o^  +  (y-Ti)^  +  z^]^ 
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fits  the  integral  form 


-/ 


(JF 


[C2+  F^1"  "  2Cnn-1) 


[C2+  f2]n-^ 


W: 


2n-3)r ^ 

J  [i:2  + 


[i:2-K  F2] 


2in-1 


where 


C2  =  (x  -  0^  -  z2 
F  =  (y  -  Ti) 
dP  =  -dTi 
n  =  3/2 

Then,  from  equation  (60) 


V, 


-4/:' 


d£ 


(y  -  -a) 


-u 


(y  -  T[) 


(y  -  T|) 

l(K  -  0^  +  z^ ][  (X  -  a' +  (y  -  Tl)^  +  Z' 1^^ 

(y  -  Ti) 


-co 


00 


(6i) 


Again,  the  terms  evaluated  at  +«>  and  -«>  cancel  and  the  terms  evaluated  at 
7112  3dd  to  obtain  the  following  expression: 


V, 


I 


^^ (y-^a.2)d^ 
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Without  a  convenient  substitution  with  which  to  integrate  equation  (62), 
the  integration  is  performed  directly.   Recognizing  that  along  the  line 
defined  by  the  side  of  the  quadrilateral  from  (ti.  t|,)  to  (C2.  "Hz).  "^12  ^ay 
be  expressed  as  a  function  of  C' 

Ti|.  =   m,£  ^    +    b,2  (63) 

where  the  slope  of  the  side.  m,2  is  given  by 

and  bi2  may  be  determined  knowing  that  t|i2  =  tj,  when  ^  =  ^1. 


e^'ni-^-Rs  (65) 

t^'is   =     -T—T 

s2    -  CI 

Substituting   equation  (63)  into  equation  (62)  yields 


vr 


(u  -m,.f-b,2)ij^ 


,     _         r^s iy-ni„^-D,gid£ 

''         J  ^,  [(x-^)'  +  z^J[(x-C)'My-nn!2C-b,2)^-HzM-    ^     • 

Define  the  quantities 

<^i2  =  y  -  t>i2  -  rin,2X  (67) 

u  =  X  -  ^  (68) 

Then  du  =  -d^  (69) 

y  -  bi2  -  m,2t  =  mi2U  +  qi2  (70) 
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By  a  change  of  variable,  equation  (66)  is  now  expressed  as  a  function  of  u: 


■<^2 


(m,2U  +  q,2)du  ,     , 

c.     _■:.■,  k  (72  J 


[ u ^  +  z ^  ][ (m,|+ 1 )  u^%  2 m,^^q,2 u  +  q,|  +  z ^'  ] 
which  fits  the  form  of 


J 


(Lu  +  M)  du 


(Au^^+  2Bu  +  C).sj(au^+  2bu  +  c)'  ^■'^^''^ 

where 

L  =  m,2  n  =  q,2 

A=l  a  =  (nn,22  +  l) 

B  =  0  b  =  mi2qi2 

C  =  z2  c  =  qi2^  +  z^ 

From  Hardy  (1944),  this  integral  form  may  be  integrated  by  the 
substitution 

j.i.t  +  V 


u  = 


t  +  1 


(74) 


where  p  and  u  satisfy 

ajju  +  b()i  +  u)  +  c  =  0  (75) 

A|iu  +  B(|i  +  u)  +  C  =  0  (76) 

and  are  the  roots  of  the  equation 

(aB  -  bA)  ^2  -  (cA-  aC)  ^  +  (bC  -  cB)  =  0  (77) 
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Substituting  the  appropriate  values  into  equation  (75),  the  roots  of  the 
quadratic  equation  are 


M  =- 


V   = 


m,,z2 


il2 


(78) 


(79) 


It  can  be  verified  that  these  values  satisfy  equations  (75)  and  (76). 


Substituting  equations  (78)  and  (79)  into  equation  (74) 


u  = 


m 


12 


(60) 


t  +    1 


du  = 


q^.t  mioZ' 


mip 


^12 


(t+  ])' 


dt 


(81) 


By  substitution  and  a  change  of  variable,  equation  (72)  becomes  a  function 
of  the  parameter  t.  After  simplification,  the  integral  now  fits  the  form 
of 


f 'lit 


(82) 


where 


K  =  -(mi2^qi2z'*  +  2mi2'^qi2^z^  *  ^12^^1012^) 


50 


2r  =  qi2'*  ^  m,22qi2^z2 

5  =  m,2^z'*  +  m,2'*z'^  +  2mi2'^qi22z2  +  mi2^q,2'^  +  nni22qt2^z2 

Equation  (82)  can  be  rationalized  by  the  substitution 


t 


V    = 


^t2+  6 


from  which  it  can  be  shown  that 


(83) 


t2r 


v2  S 


1  -  v^c: 


(64) 


dt  = 


Tl/. 


dv 


(85) 


Substituting  equations  (84)  and  (85)  into  equation  (82)  and  simplifying 
yields  the  integral  in  terms  of  the  parameter  v: 


r dt  _    _  r         dv 

^ J    (c< t^  +  3).J(t5t'+  5)'    '    ^"^ J  3  +  (c< 6  -  3 1< ) V ' 


(66) 


which  fits  the  form 


J 


dv 


32+  b^"V' 


1      ,     -1     tiV 


where  a^  =  3 

b2  =  (cx8  -  ^2^) 
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Performing  the  integration 


K 


K 


:'-#0)V'     "    -J^(c<6-|>^)' 


tan 


IX  S  -  |>  (5 


!■ 


(55) 


From  equations  (80),  (83),  and  the  expressions  for  ex,  3.  S,  and  2^  from 
equation  (82).  and  after  a  considerable  amount  of  algebraic  manipulation 
and  simplification,  equation  (88)  becomes 


4^.(K6-^.r<) 


r  tan 


d;  0  -  p  0 


I- 


4-  tan-^ 


rrHiZ--  qi2  u 


z  4z-  +  u^'+  (rni2U+  qi^)'' 


(89) 


From  equations  (63)  and  (67),  equation  (89)  becomes 


-  -—  tan 


mi2Z2-    Qij;  u 


z  4z2  +  u^+  (ri;ii;U+  qi2) 


3^ 


tan 


,    r    mi2(U''+    Z2)-   (q  -  T!v:.)  U 


nT5 — 7 


Z  '4U''+  (y  -  T[.2)'+  Z^ 


(90) 
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Finally,  applying  these  results  to  equation  (71) 


x-^2 


^^.. 


(mpU  +  q,-)  du 


_^  r     ^ Uri|gU  +  qis.;  du 

m.2(u-+  z^')-  (y  -  T[^.^)  u 


'^^-^.1 


=  -tan" 


Z  Ju2+(y-  Tli2)^+  Z'^' 


X-^.0 


--^1 


=  tan 


-1 


m,2((x  -  ^  )"^  4  z^')  -  (y  -  T[^J(x  -  |i ) 
z  J(x-^i)2+(y-Tii2)^+z2' 


-tar 


-1 


mi2((x-6)^^  z^)-  (y-Tii,)(x-6) 
z  J(x  -  £;£)'^'+  (y  -  'q^2^^+  ^^ " 


(91) 


Recall  that  when  x  =  ^i,  y  =  rt,  and  when  x  =  ^2'  y  ~  "Hz-   Then,  for  the  sake 
of  a  more  compact  equation,  define  the  following  quantities: 

ei  =  (X  -  ^i)2  .22  62  =  (X  -  ^2)2  '  Z^ 

hi  =  (y  -  'qi)(x  -  K])  ^2  =  (y  -  T|2)(x  -  ^2) 

The  quantities  r^  and  r2  are  as  shown  in  figure  (12),  where 


ri  =  iiy.  -  ^1)"  +  (y  -  T(i)^  +  z^'         r^  =  J(x-  ^2)^  +  (y  - 1^2)'  +  z'^' 

Substituting   these  quantities  into  equation  (91)  yields  the  exact  z 
component  of  velocity  due  to  the  side  from  point  (^1,111)  to  (^2.'n2)  '^  ^^^ 
form  used  by  the  XYZ  Potential  Flow  Program: 


V7    =  tan 

■^12 


-1 


"  rriu-ei  -hi 

2  n 


-tan 


-1 


mi2  £2  -  hs  1 


(92) 
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The  total  z  component  of  the  velocity  at  the  field  point  P(x,  y,  z)due  to 
the  quadrilateral  element  is  the  sum  of  the  four  sides: 


V7    =  tarr^ 


tm' 


rni2e2  "hs 


Z  To 


+  tan" 


+  tan'^ 


+  tarf^ 


m>je2  - 

■  h£  ' 

-tan"^ 

z  r2 

- 

m34eo  - 

■hjl 

-tan'^ 

2  Hs 

. 

m4ie:4  - 

-  h4  " 

-tarf^ 

z  r4 

m^je?  -h: 


m34£4-h4 
2  r4 


m4,ei  -hi 


^  n 


(93) 
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8.0  APPROXIMATIONS  OF  THE  INDUCED  VELOCITY 

8.1  QUADRUPOLE  METHOD 

As  previously  mentioned,  as  the  ratio  of  (ro/t)  exceeds  the  value  of 
2,  then  certain  approximations  may  be  made  which  greatly  reduce  the 
calculation  effort  otherwise  required  by  the  exact  method,  in  the  range 
of  2  <  (ro/t)  <  4,  the  XYZ  Potential  Flow  Program  uses  the  second  order 
approximation  of  the  potential  described  by  equation  (43).   With  the 
origin  at  the  centroid  of  the  quadrilateral,  the  first  moments  are  zero, 
and  the  second  order  approximation  is 


^  =  Aw  -  (1/2)0   XX  ^XX    *   21xy  Wxy   *  iyyWyy)  (94) 


where  the  first  term  is  a  point  source  of  strength  A,  the  second  term  is 
composedof  three  quadruples  of  strengths  1^^^.  I^m.  and  L^  located  at 

the  local  origin,  and  the  subscripts  onw  indicate  the  partial  derivatives 
of  w  with  respect  to  those  variables  as  before.  The  quantity  A  is  the  area 

of  the  element,  and  the  terms  i^^.  Ixy  ^nd  L^.  are  the  respective  moments 

of  inertia  of  the  source  element  given  by  equations  (39),  (40),  and  (41). 
To  obtain  the  velocity  components  at  the  field  point,  equation  (94)  is 
differentiated  with  respect  to  the  coordinate  directions  giving: 
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Vx=    -|^     =    -[AWx  +   ^IxxWxxx-^    IxyW^.,y+llyyWxyy]  (95) 


V, 


=     -  -^     =    -[AWy  +    ^    IxX^Xxy-^    IxyVVxyy+^IyyV/yyyj  (96) 
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^2=  -  qT  =-[aw2  +  -^  IxxWxxz+I>'^y^'^xy2+ i^yy^^^yy^]       (97) 


Recall inq  that     vv'  = 


:'2+    l|2+    7^^ 


the  derivatives  of  w,  as  expressed  by  Hess  and  Smith  (1962)  and  as  used  in 
the  XYZPF  program,  are 


w..=   -X  r.--- 


Wy=  -y  nr^' 


Yvv  =  -  z  r, 


;99) 


^^xxx 

= 

3x(3p-f  10K^)ro-'^ 

^"^xxy 

= 

3y  P  fo"^ 

"xyy 

= 

3x  q  To""? 

VVyyy 

= 

3y(3q+  lOy^wv"^ 

Wxx^ 

- 

32  p  \y'^ 

Wxyz 

- 

-15xy2  rn""^ 

Wyy, 

r 

32  q  r,-' 

where 


p  =  y2  +  ^2  -  4x2 

q  =  x2  +  z2  -  4y2 


(100) 
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8.2    MONOPOLE  METHOD 

When  the  ratio  of  (rg/t)  is  greater  than  4.  then  the  quadrilateral 
may  be  approximated  by  a  simple  source  corresponding  to  the  first  term 
of  equation  (43).   Then  the  velocity  components  at  the  field  point  due  to 
the  quadrilateral  are  given  by 


d'P 


(101) 


O'P 


^y=  "dir  =-^^'y  ^^^2) 


Vr=  --^    =- AWj  (103) 

where  the  partial  derivatives  of  w  are  those  given  in  equation  (99). 
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9.0  SOLVING  THE  MATRIX  EQUATION  FOR  SOURCE  DENSITY 

9.1  JACOBI'S  ITERATIVE  METHOD 

From  equation  (20),  the  matrix  equation  may  be  solved  for  the 
constant  source  density  0j  for  each  element  which  satisfies  the  boundary 

condition  equation  (11).     Equation  (20)  suggests  the  use  of  Jacobi's 
iterative  method  of  matrix  solution  in  the  form 


o' 


,<"^*'^=     Vi    *i    C,,a«,  i  =  1,2 H  (,04) 


where  N  is  the  number  of  elements  composing  the  body  surface,  and  m  is 
the  number  of  iterations  completed.  A  partial  sum  of  equation  (104)  is 
computed  for  each  of  the  ith  elements  before  proceeding  to  the  next  jth 
element.   The  iteration  is  complete  when  the  summation  of  equation 
(104)  includes  all  of  the  jth  elements.   Because  the  values  of  the  source 
densities  at  all  of  the  elements  are  recomputed  before  any  of  them  are 
used  in  the  iteration,  this  method  is  also  called  the  simultaneous 
displacement  method  (Ralston  1965).    This  is  contrasted  with  the 
Gauss-Seidel  iterative  method  used  in  the  Douglas  program.  In  the 

Gauss-Seidel  method,  as  each  new  Oj  Is  computed,  it  is  used  immediately 

in  the  iteration  process  for  calculation  of  c^(j+i)  •  This  is  also  known  as 
the  successive  displacement  method  and  is  expressed  as 
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i-1  N 

j=1  j=i+1 

i  =   1,2 N 


Though  the  Gauss-SBidel  iterative  method  is  faster,  the  Jacobi  iteration 
method  was  selected  for  use  in  the  XYZPF  program  in  order  to  be  able  to 
perform  the  iterations  column  by  column,  since  the  coefficient  matrix  is 
also  computed  column  by  column,  and  the  matrix  does  not  have  to  be 
transposed  for  solution. 

When  the  (m+1)th  iteration  is  complete,  the  values  of  the  source 
densities  are  compared  with  those  of  the  (m)th  iteration  and  the 
differences  summed  for  all  of  the  elements.   The  total  difference  between 
successive  iterations  is  then  compared  to  a  convergencecriteria  input  by 
the  user.  If  the  difference  is  less  than  the  convergencecriteria,  then  the 
matrix  solution  is  complete  and  the  values  of  the  source  densities  are 
stored  for  later  use  in  computing  velocities  and  pressure  coefficients,  if 
the  convergencecriteria  is  not  met,  then  the  iteration  process  is 
repeated.  After  every  five  iterations,  if  the  convergencecriteria  is  still 
not  met,  then  an  extrapolation  is  attempted  in  order  to  accelerate  the 
convergence.  The  XYZ  Potential  Flow  Program  uses  a  Richardson 
extrapolation  method,  a  numerical  procedure  which  uses  two  approximate 
results  to  obtain  a  third  approximation  which  is  closer  to  the  exact 
solution  (Ralston  1965). 
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9.2    RICHARDSON  EXTRAPOLATION 

The  Richardson  extrapolation  assumes  that  the  iterative  process  is 
convergent.  For  the  iterative  solutions  Sq.  S^.  and  52.  where  Sq  is  the 
most  recent  approximation  and  S2  the  oldest,  the  solution  is  convergent 
if 


^'1 


Si  -  s? 


=    X  <    1  (106) 


While  a  Richardson-type  extrapolation  can  take  may  forms,  the  XYZPF 
program  uses  a  procedure  developed  from  the  following  approximations 
(Dawson  and  Dean  1972).    If  there  is  only  one  dominant  eigenvalue  and  a 
sufficient  number  of  iterations  have  been  completed,  the  iterative 
solutions  may  be  approximated  by 

So  -  S|-  +  E  X"^ 

Si  ^  5|-  +  E  X^"'  (107) 


S2  ~  S|-  +  E  X 


Sj  ^  S^  +  E  X^' 


m-2 


where  S|-  is  the  true  solution 

X  is  the  eigenvalue 

E  is  the  eigenfunction 

m  is  the  number  of  completed  iterations 

Define  the  linear  combination  which,  from  equation  (107),  may  be 
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approximated  as 

ASq  +  (1  -  A)Si  ^  S|-  +  E  X^~^  (AX  +  1  -  A)  (108) 

The  value  of  A  may  be  chosensuch  that 

(AX+  1  -  A)=0  (109) 

Then,  from  equations  (108)  and  (109) 

ASo  +  (l  -  A)Si^S|-  (110) 

where  the  expression  on  the  left  converges  to  the  exact  solution. 
From  equations  (106)  and  (109) 


Solving  for  A. 


A 


_   5g  -  5l       -  1  _  _  ,-  .  1 

A     -  -r T—      -    \         A  Kill 


C  _        C  C  _        Q 

^   _  ■-'2  _  _   -'1  -  ^12 5^  (1]2) 

So  -   2  bi  +    S2  D 

Since  the  value  of  A  generally  changes  from  element  to  element,  a 
weighted  average  of  A  is  used  in  the  extrapolation,  where 

2  (S2(i)-Si(1))  (sign  of  D(i)) 
A  =       K 1  1  .->) 

N 

Equation  (113)    is  recomputed  after  every  fifth  iteration.    If  the  difference 
between  the  new  value  and  the  old  value  is  less  than  0.02,  then  the 
solution  is  extrapolated.   From  equation  (110).   the  extrapolated  solution 
is 

S*   =     A  So  ^  (1  -  A)Si  (114) 
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When  there  are  two  dominant  eigenvalues,  then  the  iterative  solutions 
may  be  approximated  by 


Sj  ^  S^  ^  E,  X,r"-'  *  E2  Xz^-'^  (^1^) 


where  Sf  is  the  true  solution 

\]  and  X2  are  the  eigenvalues 

El  and  E2  are  the  eigenf unctions 

m  is  the  number  of  completed  iterations 

Define  the  linear  combination  which,  from  equation  (115),    may  be 
approximated  as 

B2  So  +  Bi  S,  +  (1  -  Bi  -  B2)  S2 

^  Sf  +  E,  Xr^  [B2  Xi2  +  Bi  X,  +  (1  -  Bi  -  B2)l  (116) 

+  E2  X2"^2  [B2  ^2^  +  Bi  X2  +  (1  -  Bi  -  B2)l 

The  values  of  Bi  and  B2  may  be  determined  for  which  the  eigenvalues  X^ 
and  X2  are  roots  of  the  quadratic  equation 

B2X2  +  B,  X+(1  -Bi-B2)  =  0  (117) 

_  Then,  from  equation  (116) 

B2  5o  +  Bi  5,  +  (1  -  Bi  -  B2)  52  ^  5f  (118) 
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where  the  left  side  of  the  equation  (118)   converges  to  the  exact  solution. 
Using  equation  (115)   and  eliminating  terms  containing  E2: 


(5o  -  5,)  -  X2  (5,  -  52)  =  E,  'X^^iX^  -X2)(>^i  "  0 

(Si  -  82)  -  X2  (S2  -  S3)  =  E,  xr^(Xi  -X2)(X,  -  1)  (119) 

(S2  -S3)  -  X2  (S3  -  S4)  =  El  xr^iX^  -X2)(Xi  -  1) 


Solving  for  X] 

(So  -  Si  )  -  'X2  (Si  -  S2 )        (Si  -  S^ )  -  X2  (Si  -  S3 ) 


Xi   = 


( 1 20) 


(Si  -  S2)  -  X2(S£-  S3)        (S2-  S3)  -  X2(S3-  S4) 

From  equations  (117)   and  (120) 


(S4-  ur^;  )  (Sn  "z'Ss +U4  )~('I'4  ~  S2.'l(Sl-  S2.'-(S3-  S4)]  t.^.^ 

Bi  = '■ (121; 


ii:i4-  S2  i(S4-2J:i3+:32  i-{'z^A-  Ss  jkSi  -  D2  J-(tio-  341]       /,  -  -. 

B£  =  - ^ ■ '■ (122; 

D 

where  D  =  (S4  -  283  -  52)(So  -  252  "■  ^4)  -  (5,  -  S2  -  83  +  84)2 


The  weighted  averages  of  Bi  and  B2  are  used  for  the  extrapolation  as  done 
with  A  In  equation  (113).     If  the  sum  of  the  absolute  values  of  the 
weighted  averages  of  Bi  and  B2  changes  by  less  than  2%,  then  the 
extrapolation  is  performed.  Then  from  equation  (118),    the  extrapolated 
solution  is 

5*=    iiSo  +   B1S1  +    (1  -b;  -B£)52  (123) 
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10.0    CALCULATION  OF  VELOCITIES  AND  PRESSURE  COEFFICIENTS 

With  the  influence  coefficients  and  the  source  densities 
determined,  the  calculation  of  velocities  is  a  relatively  simple  matter. 
From  equation  (9),  the  total  velocity  is  the  sum  of  the  freestream 
velocity  and  the  disturbance  velocity  due  to  the  body.  The  product  of  the 
source  densities  and  the  influence  coefficients  are  summed  for  all  of  the 
elements,  and  then  added  to  the  freestream  velocity  to  determine  the 
total  velocity  at  any  point  in  the  domain.  Velocities  on  the  surface  of  the 
body  are  calculated  at  the  null  points  only,  as  the  boundary  conditions  are 
enforced  only  at  the  null  point  of  each  element,  and  velocities  at  other 
points  in  the  element  would  produce  significant  error  due  to  the  method 
of  approximation.    The  components  of  the  velocity  at  the  centroid  of  the 
ith  element  are 


N 

Vix  = 

+ 

j  =  1 

C>..><0., 

%  - 

V'ccj 

+ 

N 

.1=1 

Ci.^Oj 

V.:,, 

+ 

N 

E 

C.j.Oj 

(124) 


From  equation  (15),  the  velocity  induced  by  an  element  at  its  own  null 
point  has  a  magnitude  of  2tt  directed  along  the  outward  normal  vector  of 
the  element. 
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At  a  point  off  the  surface  of  the  body,  the  components  of  the 
velocity  are  determined  just  as  if  the  point  of  interest  was  a  null  point  of 
a  single  element.   The  total  velocity  at  the  field  point  is  the  sum  of  the 
freestream  velocity  and  the  contributions  of  each  of  the  elements  of  the 
body  surface.  The  contribution  of  each  of  the  elements  is  determined  by 
calculating  the  influence  coefficient  based  on  the  element  geometry,  and 
multiplying  the  result  by  the  source  density  for  the  element.   The  total 
velocity  at  the  field  point  may  be  expressed  as 


q=i 


25; 


where  p  and  q  represent  the  field  point  and  the  source  element 
respectively  and  the  influence  coefficient, 

As  discussed  in  section  6.0,  the  influence  coefficient  may  be 
calculated  by  the  exact  method,  or  it  may  be  approximated  by  the 
quadrupole  or  monopole  method  depending  on  the  ratio  of  the  distance,  ro, 
between  the  field  point  and  the  centroid  of  the  source  element  to  the 
maximum  dimension,   t,  of  the  source  element. 
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The  magnitude  of  the  velocity  at  either  the  on-body  or  off-body 
points  is  given  by 


I 2 2 5"^ 


(127) 


The  pressure  coefficient  is  calculated  by  using  the  result  of 
equation  (127)  in  equation  (19),  renumbered  here  for  clarity. 


P      -       PC:.0 


—  P    V 


CCl 


1  - 


y.o 


'..  i  ^o; 
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11.0      STREAMLINE  CALCULATIONS 

For  the  calculation  of  streamlines  off  the  surface  of  tne  Dody,  a 
timestep  procedure  is  performed  by  calculating  the  velocity  at  the 
starting  point  of  the  streamline  from  equation  (125),  and  advancing  the 
streamline  onetime  increment  by  a  fourth  order  Runge-Kutta  integration 
to  a  new  point  (Ralston  1965).    The  timestep  procedure  is  repeated,  thus 
creating  a  streamline  composedof  finite  segments. 

For  the  calculation  of  streamlines  on  the  surface  of  the  body,  the 
streamline  is  started  at  a  specified  point  and  quadrilateral  number.  The 
local  velocity  is  calculated  from  equation  (124).  and  the  values  of  a 
stream  function  are  computed  for  each  corner  point.  The  stream  function 
is  chosensothat  it  has  a  value  of  zeroat  the  last  point  on  the  streamline 
in  the  quadrilateral.    The  side  of  the  quadrilateral  through  which  the 
streamline  exits  is  determined,  and  coordinates  of  the  point  on  the  side 
which  has  a  stream  function  value  of  zero  are  computed.  The  direction  of 
the  streamline  is  verified  by  comparing  it  with  the  known  direction  of 
positive  velocity.  The  next  quadrilateral  through  which  the  streamline 
passes  is  determined  by  calculating  the  proximity  of  the  new 
quadrilateral  to  the  most  recent  point  on  the  streamline.    A  circular  area 
is  computed  which  encloses  the  new  quadrilateral  with  an  additional  10* 
margin,   if  the  last  point  of  the  streamline  falls  outside  the  circle,  then 
the  quadrilateral  is  discarded  and  a  new  one  selected  until  the  streamline 
is  adjacent  to  the  new  quadrilateral. 
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Figwe  1 3.  C^lcuUtlon  of  on-body  streaml^s 

This  procedure  is  repeated  along  the  surface  of  the  Dody  until  all  of 
the  surface  elements  have  t)een  tested.   The  result  is  a  streamline 
composed  of  segments  from  one  side  of  an  element  to  another. 
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12.0     DEVELOPMENT  OF  HIGHER  ORDER  PANEL  METHODS 

The  XYZ  Potential  Flow  program  assumes  a  constant  element 
source  panel  as  described  in  Section  3.3.   Extensive  use  of  the  constant 
element  source  panel  method  has  shown  that  the  primary  diasadvantage  of 
the  method  is  that,  in  order  to  obtain  a  highly  accurate  solution,  a  large 
number  of  surface  elements  must  be  used  to  discretize  the  body  surface. 
The  method  has  been  applied  to  problems  of  increasingly  complex 
configurations  (Hess  1977).    By  doing  so,  the  size  of  the  coefficient 
matrix  is  increased  resulting  in  increased  computer  time  and  cost. 
Additional  cost  is  accrued  due  to  the  manhours  required  to  prepare  the 
input.   Therefore,  while  the  constant  element  methods  have  proven  to  be 
very  successful,  the  cost  has  motivated  the  development  of  higher  order 
methods. 

The  higher  order  surface  singularity  methods  discretize  the  body 
surface  with  curved  elements  having  a  variable  source  density,  as 
compared  to  the  flat  elements  of  constant  source  strength  used  in  the 
basic  method.  Hess  (1973)  showed  that  the  effect  of  a  curved  surface  and 
the  effect  of  a  variable  source  density  are  of  the  same  order  of 
magnitude.   Therefore,  the  two  effects  must  be  used  together  to  provide  a 
"consistent"  solution.  The  consistent  higher  order  panel  method  provides 
the  increased  accuracy  and  speed  desired  for  three  dimensional  Neumann 
problems  (Hess  1979). 

Accordingto  Hess  (1979),  the  evolution  of  the  higher  order  panel 
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method  from  the  constant  element  method  involved  the  derivation  of  new 
influence  coefficients  based  on  the  integration  of  a  variable  source 
density  over  a  curved  element.   Other  portions  of  the  method  were 
unchanged.  However,  the  development  of  the  higher  order  velocity 
equations  also  required  different  programming  logic. 

In  examining  the  potential  for  development  of  the  higher  order 
methods,  Hess  (1979)  noted  that  "a  consistent  approach  always  uses  a 
source  polynomial  one  degree  less  than  the  panel  polynomial."   Through  an 
independent  effort,  Brebbia  (1984)  presented  a  higher  order  approach 
using  the  direct  method  to  solve  for  a  surface  potential  polynomial 
stating  that  the  potential  function  must  be  of  a  degree  at  least  equal  to 
the  degree  of  the  polynomial  describing  the  element.   Knowing  that  the 
velocity  function  is  the  derivative  of  the  potential  function,  these  two 
observations  agree.  Asa  result  of  his  derivations,  Hess  showed  that  the 
solution  of  a  flat  element  with  a  constant  source  requires  one  integral,  a 
paraboloidal  panel  with  a  linearly  varying  source  density  requires  six 
integrals,  and  a  cubic  element  with  a  quadratic  source  density  requires 
twenty-three  integrals.   Development  of  higher  order  methods  has 
focused  on  the  paraboloidal  element  with  the  linearly  varying  surface,  as 
solutions  of  higher  order  than  that  offered  little  benefit  for  the  amount 
of  effort  required  to  produce  a  working  program  (Hess  1979).    Hess 
(1979)  and  Eriksson  (1983)  have  independently  developed  programs  for 
three  dimensional  higher  order  panel  methods.  The  higher  order  Hess 
program  evolved  from  the  constant  element  program  which  he  developed 
in  the  early  1960s,  while  Eriksson  developed  a  new  program  based  on  the 
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work  of  Johnson  and  Rubbert  (1975).    Continued  work  in  the  near  future  is 
expected  to  deal  primarily  with  refinement  of  the  paraboloidal  element 
with  a  linearly  varying  source  (Eriksson  1983). 

In  order  to  alleviate  the  burden  of  preparing  the  input,  a  geometry 
package  for  input  data  generation  has  been  developed  which  is 
incorporated  into  the  Hess  higher  order  panel  program.  This  allows  the 
user  to  enter  relatively  few  points  to  describe  the  body.  The  geometry 
package  enhances  the  surface  representation  by  distributing  additional 
points  on  the  surf  ace  based  on  one  of  many  algorithms  or  recurring 
geometries  (Halsey  1978). 

As  the  state  of  the  art  in  fluid  dynamics  has  progressed,  the  XYZ 
Potential  Flow  program  has  seen  increasingly  complex  applications 
requiring  a  great  deal  of  effort  in  preparing  the  input,  and  requiring  long 
computer  run  times.    Hess  (1979)  reported  the  use  of  the  Hess  constant 
element  program  for  a  configuration  utilizing  7000  effective  elements. 
Realizing  that  the  computation  time  increases  as  the  square  of  the  number 
of  elements,  it  is  easy  to  see  the  motivation  for  developing  the  higher 
order  panel  methods.  Though  modern  computers  offer  storage  capacities 
which  can  handle  most  applications  of  the  constant  element  method,  the 
higher  order  panel  methods  can  provide  equal  accuracy  for  much  less  user 
effort.  While  the  constant  element  method  is  still  a  versatile  tool, 
future  generations  of  the  surface  singularity  methods  will  be  able  to 
handle  the  more  complex  applications  being  demanded  in  fluid  dynamics. 
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13.0     VELOCITY  CALCULATIONS  FOR  A  TRIAXIAL  ELLIPSOID 

AS  the  only  true  Dody  for  which  an  analytical  solution  exists,  a 
triaxial  ellipsoid  was  selected  for  the  sample  calculations  in  order  to 
compare  calculated  results  with  the  analytical  solution.  Hess  has  made 
use  of  the  triaxial  ellipsoid  throughout  his  works  in  developing  both  the 
constant  element  method  and  the  higher  order  panel  method.  Therefore, 
the  XYZPF  program  will  be  compared  with  existing  results  of  the  Hess 
method  (Hess  1979). 

The  triaxial  ellipsoid  utilized  for  the  calculations  has  semiaxes 
dimensions  of  1.  2.  and  0.5  in  the  x.  y,  and  z  directions  respectively.   The 
surface  was  discretized  by  selecting  fixed  intervals  of  0.1  in  the  y 
direction,  and  fourteen  equal  divisions  of  the  90*  sector  in  the  x-z  plane. 
The  values  of  x  and  z  were  then  solved  in  terms  of  y  and  an  angle  6.  This 
method  yielded  280  elements  in  the  first  octant  for  a  total  of  2240 
effective  elements  after  employing  symmetry.    A  FORTRAN  program  was 
used  to  generate  the  corner  points  and  to  prepare  the  input  file  for  later 
use  by  the  XYZPF  program. 

Figures  (16)  and  (17)  show  excellent  correlation  with  the  analytical 
solution  and  little  difference  from  the  Hess  solution  using  4320  effective 
elements.   The  use  of  the  centroid  as  the  control  point  is  an 
approximation  used  to  simplify  the  multipole  expansion  of  the  potential 
about  the  origin  of  the  local  coordinate  system.   This  approximation  is 
valid  for  most  elements.   However,  for  elements  which  are  long  and  thin, 


72 


the  physical  difference  between  the  centroid  location  and  the  null  point 
location  is  significant,  and  use  of  the  centroid  can  produce  significant 
error  as  may  De  observed  in  figure  (15)  when  the  value  of  y  approaches 
2.0. 

Recent  calculations  on  the  same  body  (Hess  1979)  showed  that 
results  of  at  least  equal  accuracy  could  be  obtained  using  only  480 
effective  elements  using  the  higher  order  panel  method.  These  results  are 
a  significant  demonstration  of  the  value  of  the  higher  order  panel  method. 
Using  the  higher  order  panel  method  rather  than  the  constant  element 
method,  the  user  has  the  option  of  obtaining  equal  accuracy  with  cruder 
discretization  or  higher  accuracy  for  the  same  discretization  effort. 
While  the  results  of  the  triaxial  ellipsoid  show  relatively  little 
improvement  in  accuracy,  the  most  significant  advantages  of  the  higher 
order  panel  method  are  evident  for  a  body  with  concave  regions  (Hess 
1977). 
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Figure  16.    Comparison  of  analytic  and  calculated  velocity  distributions  on  an  ellipsoid  with 
axes  ratios  1 :2:0.5.  Velocities  in  the  xz-plane.  (from  Hess  and  Smith  1962) 
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Figure  17.   Comparison  of  analytic  and  calculated  velocity  distributions  on  an  ellipsoid  with 
axes  ratios  1 :2:0.5.  Velocities  in  the  yz-plane.  (from  Hess  and  Smith  1962) 
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14.0     CONCLUSION  AND  REMARKS 

The  objectives  of  this  paper  were  (1)  to  describe  the  details  of  the 
approximation  of  an  arbitrary  three-dimensional  body  using  quadrilateral 
elements,  and  (2)  to  provide  a  detailed  derivation  of  the  exact  source 
panel  integrations.    Both  of  these  objectives  were  met. 

The  method  of  surface  discretization  and  source  panel  geometry  is 
easily  described  using  basic  principles  of  geometry  and  vector  algebra. 
By  using  quadrilateral  surface  elements,  many  surfaces  can  be  discretized 
in  a  very  straight  forward  logical  fashion.  The  user  can  frequently 
visualize  the  contour  lines  of  the  surface  which  may  be  used  to  form  the 
quadrilaterals,  with  some  help  from  an  intuitive  approach  to  the  fluid 
dynamics  problem.  The  method  of  forming  the  planar  quadrilateral 
element  in  the  XYZPF  Program  differs  slightly  from  the  method  presented 
by  Hess  and  Smith  (1962).    The  differences  lie  in  the  formation  of  the 
local  coordinate  system  and  the  use  of  the  centroid  rather  than  the  null 
point  as  the  control  point  for  applying  the  boundary  conditions.  The 
method  of  forming  the  local  coordinate  system  has  no  effect  on  the 
potential  flow  calculations  as  long  as  one  of  the  coordinate  vectors  is 
the  outer  normal  to  the  planar  element.   The  use  of  the  centroid  as  the 
control  point  is  an  approximation  used  to  simplify  the  multipole 
expansion  of  the  potential  about  the  origin  of  the  local  coordinate 
system.   This  approximation  is  valid  for  most  elements.   However,  for 
elements  which  are  long  and  thin,  the  physical  difference  between  the 
centroid  location  and  the  null  point  location  is  significant,  and  use  of  the 
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centroid  can  produce  significant  error  as  may  be  observed  in  figure  (16) 
when  the  value  of  y  approaches  2.0. 

A  detailed  derivation  of  the  exact  source  panel  integration  has  not 
previously  appeared  in  literature,  though  the  results  are  summarized  by 
Hess  and  Smith  (1962).    The  derivations  presented  in  this  paper  verify  the 
equations  presented  by  Hess  and  Smith  (1962),  and  the  equations  used  in 
the  XYZPF  Program.  The  integral  expressions  for  the  velocity 
components  were  evaluated  exactly  with  no  assumptions  or 
approximations  used  in  the  course  of  the  integrations.    Since  the  method 
of  integration  reduces  the  surface  integral  to  a  line  integral  around  each 
of  the  sides  of  the  element,  the  integration  method  can  be  generalized  for 
a  planar  element  with  any  number  of  sides,  though  the  surface 
discretization  used  in  the  XYZPF  Program  uses  only  quadrilateral 
elements. 

The  calculation  of  potential  flow  about  arbitrary  three  dimensional 
bodies  is  an  engineering  tool  which  is  basic  to  design  involving  fluid 
dynamics.  The  XYZPF  Program  is  a  useful  tool  which  has  proven  its  value 
over  the  past  14  years.  However,  the  increasing  demands  placed  on  this 
method  are  exposing  the  errors  of  the  approximation  as  evident  in  the 
sample  calculations  presented  in  this  paper.  The  requirement  for 
increased  accuracy  has  motivated  the  development  of  the  higher  order 
panel  methods.  Some  of  the  limitations  imposed  on  the  XYZPF  Program 
were  due  to  computer  memory  and  speed  limitations.    Advancesin 
computer  performance  may  allow  future  investigators  to  eliminate  some 
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of  the  simplifying  approximations  used  in  the  XYZPF  Program,  allowing 
increased  accuracy  without  violating  computer  limitations.    Some 
modifications  might  include  the  use  of  the  null  point  as  the  control  point 
rather  than  the  panel  centroid  (as  is  used  in  the  Hess  program),  or 
extending  the  range  in  which  the  exact  velocity  calculations  are 
performed.  The  gains  in  accuracy  by  modifying  the  "constant  element 
method"  are  limited  by  the  basic  approximations  of  the  planar  element 
and  the  constant  source  density  for  each  element.   Significant  gains  are 
most  evident  in  the  higher-order  panel  methods.  This  author  concurswith 
Eriksson  (1983)  in  expecting  advances  in  the  surface  singularity  methods 
to  focus  on  the  "development  and  refinement"  of  the  higher  order  panel 
methods. 
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flPPEHDIX    I    -   XVZPF   SECTION   PF 1 

PROGRflfl  PFP 1  <  I NPLIT=  128,  OIJTPLIT=  128,  TfiFE5=  I NPUT,  TflPE&=OUTPUT,  TRPEG3, 
1  TRPE3=TflPE03 , TRPE04 , TflPE4=TflPED4 , TRPE50= 128) 

C 

C    XVZ  POTENT  I RL  FLOW  PROGRRn  UERSIOH  4  SECTION  1 
C     RERDS  INPUT  AND  COMPUTES  QURDR I LRTERRL  PRRRMETERS 
C 

C     FOR  INFORMRTION  CGNTRCT 
C        BILL  CHENG  OR  JANET  DERN 

C        NUNERiCRL  FLUID  DVNRMICS  BRRNCH    CODE  1843 
C        NRURL  SHIP  RESEARCH  AND  DEUELOPNENT  CENTER 
C        BETHESDR.  MflRVLRND   20084 
C 

D I NENS I  ON  I  NDEX< 9, 3  > .  G(9, 6  >,  F<9  >,  CZ';9  > ,  !  P(9  >,  XP<9  >,  VP(9  >,  ZPvy  ) 

1  .  nSK  (100),  US  (.  240  ) ,  PROB  (15),  DM  ( 550 ) 

CONNON    X(SOO  ).V(S0U  ).Z(SOO  >. ID(4 1,71 ),B(250),T(4600).KP( 100) 

EOUIUALENCE  <CZ(1),F<1)  ) 

EOU I URLENCE ( US ( 1 ) , KP ( 1 ) ) , <  WS (1 0 1 ) , NSK ( 1 ) ) , ( US ( 20 1 ) , NP  ) , ( US ( 202 ) , 

2  NSP ) ,  ( US  ( 203 ) ,  NEP ) ,  ( US  ( 204 ) ,  NSE ) ,  ( US  ( 205 ) ,  N I X ) ,  ( US  ( 206 ) ,  N !  V ) ,, 

3  <US(20?).NiZ),(US(209),  ICUN),  (US(21U),  tSN),  (US(211  >,  K),  (US(213), 

4  EPS),(US(208)JPS  ).(US(212).IPF  ),  (US(217),Xi  ),  (US(218).VI). 
5(US<219),ZI  ) 

EQI.l  I URLENCE  ( V 1 2 .  V23  ) ,  <  V34 ,  V4 1  ) 
I NTEGER  P . P 1 , P2 . P3 , P4 , PC , P5 , P6 , P? . PS   . PQ 
URITE  (6,5) 
5  F0RNflT(4QH1);VZ  POTENT  I  RL  FLOU  PROGRRN  SECTION  1,  UERSION  4  ) 
10  FORNRT  (I  1, 15R4) 

20  FORNRT  (IX, 1514) 

50  FORNRT  ( 1X,2I7.6E12.5) 
30  FORNRT  (1X,5F12.9) 
C      fl.   READ  IN  CONTROL  PRRRNETERS 

US(220)=4. 

K1=0 

ID  1=0 

ID2=0 

103=0 

ID4=0 

I  D5=0 

I  D6=0 

107=0 

NhXN=70 

NRXN=40 

NAXN0E=650 

MRXPC=800 

i  CNTRL=  1 

EGF50=0 . 

RERD     <5    .  10)J,  (FROBd  ),  1  =  1,  15) 

IF   (E0Ff5)    .EO.    0. )     GO  TO     Q 

URITE (6,  8) 
8  F0RNflT(39H0N0  TITLE  CARD  FOUND  -  PROGRRN  ABORTED   ) 

STOP 
9  CONTINUE 

J=0 

URITE  (6,10)  J.  (PROB ( I  ),  1  =  1,  15) 

SR=.0 

SB=0. 

21  FORNRT  (17H0N0,  OF  OURDS .   =,14    /17H  NO.  OF  SECT10NS=. 
2I4/31H  NRX.  NO.  OF  ITERATIONS  X  FLOU  J3,9H  V  FLOU 

313, 9H  Z  FLOU  , 13) 
READ  (5  ,11  )NOE , NSE , N I X , N I V, N I Z, I SN, EPS , I UCT, I  PS , I PF,  I SP 
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1  J  ED  I T 1 J  ED  I T3 , I  ED  1 T4  J  TRPE , XCENTER , VCENTER , 2CENTER 

11  F0RNflT<:6l4,F8.5,8i4,  1X,3F5.3> 
IF  <E0F(5>  .EQ.  0.  >  GO  TO  19 
WRlTECe, IS) 

18  F0RriRT(43H0N0  PflRflriETER  CARD  FOUND  -  PRQGRRM  RBORTED        ) 
STOP 

19  CONTINUE 

IF  CIEDITI.EQ. 1)   ICNTRL=0 
WRITE  (6.21 >  NQE.NSE.MIX.MIV.MIZ 
31  FORMRT  ("COHUERGEHCE  CRITERIA" .F8. 5 > 

4 1  FORMRT  ( 4HD  N ,  7.X ,  2HX 1 ,  1 2X .  2HX2 ,  1 2X ,  2HX3  J  2X ,  2HX4 ,  1 2X ,  2HXP ,  1 2X , 

1  2HXN  J  2X , 1 Hfi  J  3X . 3HCZ4 /4H   N , 7X , 2HV 1 , 1 2X , 2HV2 ,  1 2X , 2HV3 , 1 2X , 2HV4 , 

2  12X  ,  2HS'P ,  12X ,  2HVH ,  12X .  2HFL  ,  12X  .  3HCZ5/4H   P,  7X  .  2HZ  1 .  12X ,  2H22 .  12X , 

3  2HZ3 .  1 2X ',  2HZ4 .  1 2X '  2HZP .  1 2X ,  2HZN ,  1 2X ,  4HCZ 1  ,  1 0X ',  3HCZ6  /  >  ' 

42  FORMRT  <  4H 1  M , 7X , 2HX 1 . 1 2X , 2HX2 . 1 2X , 2HX3 , 1 2X , 2HX4 . 1 2X . 2HXP . 1 2X , 

1  2HXH  J  2X  J  HR  J  3X , 3HCZ4 /4H   N , 7X , 2HV 1 J  2X . 2HV2 , 1 2X , 2HV3  J  2X , 2HY4 , 

2  12X,2HVP, 12X.2HVN, 12X.2HFL, 12X,3HCZ5/4H   P,7X,2HZ1, 12X,2HZ2. 12a, 

3  2HZ3 . 1 2X . 2HZ4 , 1 2X , 2HZP , 1 2X . 2HZN , 1 2X , 4HCZ 1  , 1 OX , 3HCZ6 / > 
24  FORMRT  •:  1H  J  1 JQH  PLRNES  OF  SYMMETRY) 

240  WRITE  '::6,24)  ISM 
270  WRITE  (5,31)  EPS 
2Sn  j  F  C I  PS . LE . 0 )  GO  TO  290 
285  WRITE  <6,36>  IPS. IPF 
36  FORMRT  (45HnMEW  SOURCE  DENSITY  TO  BE  COMPUTED  FOR  QURDS.J4,3H  -  , 
114) 

290  K=0 
WRITE':6,3y)ISP 

39  FORMRT  <9H0   ISP  =  ,13  ) 

WR ! TE(5 . 37  >  I  ED  I T 1 . I  ED  t  T3 , I  ED ! T4 J  TRPE 
37  FORMRT  ( yHO  I  ED  I T 1  = ,  1 3  ./yH  I  ED  I T3  =  J  3  ,/9H  i  ED  I T4  =  J  3  ./9H  i  TAPE  = , 
1        13) 

WR  i  TE(5, 38 )  XCENTER , YCENTER . ZCENTER 
3S  FORMATS lOHOXCENTER  =  ,F5.2/10H  YCENTER  =.F5.2/10H  ZCENTER  =.F5.2) 
riM=0 

riN=o 

P=1 

0=1.0 

DO  29)  1=1.41 

DO  291  J=1,71 

291  ID(I ,J)=0 
J=0 

C      B.   READ  FIRST  FT. 

I ERR=0 

I F  < I  TAPE . EQ . 1 )  GO  TO  292 
2000  READ  (5 , 40 )  X I , Y I , Z I , N t . M I , NS . NE , UN 

IF  <E0F(5).NE.0.  '.OR.  NS.LE.O)  GO  TO  2050 

WRITE (6. 45)  ICNTRL.NS 
45  FORMRT (M,9H  SECTION  .14) 

L I NE=0 

GO  TO  293 
2050  IF<IERR.EO.O)  GO  TO  2200 

WRITE<:6.2100) 
2100  FORMAT (3yH0N0  POINT  CARDS  FOUND  -  PROGRRM  ABORTED   ) 

STOP 
2200  I  ERR  =1 

ITRPE=1 

WRITE-:  6, 2300) 
2300  FORMRT <47H0ERR0R  IN  INPUT  -  POINT  CARDS  NOT  ON  INPUT  FILE  J OX, 
1      53HPR0GRAM  WILL  CHANGE  I  TAPE  TO  1  AND  TRY  TO  READ  TAPE50'  ) 

IF  <  EOF(5).EO.O  )  WRITE(e.,2400)   XI.VI.ZI 
2400  FORMATS  11H0EXTRR  FL0W,3F12.5.5X.20HWILL  NOT  BE  COMPUTED  ) 
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2Q2  REflD<50, 40  )  X I , V I . 2 ! , N I , M I , HS , NE , UN 
40  FORMRT  (3F 12 .9,414, F 12 .9) 

E0F5D=E0F':50) 

IF  <EOF5U.NE.O.  .OR.  NS.LE.O)  GO  TO  2450 

WRITE (5, 45)  ICNTRL.MS 

LINE=0 

GO  TO  293 
2450  IF  (lERR.EQ.O)  GO  TO  2500 

UR!TE';6.2100) 

STOP 
2500  IERR=1 

ITflPE=0 

WRITE (5. 2600; 
2600  FORMRT  ("ERROR  IN  INPUT  -  POINT  CRRDS  NOT  ON  TRPE50"J0X, 

r'PROGRRM  WILL  CHANGE  ITfiPE  TO  0  AND  TRV  TO  READ  INPUT  FILE") 

GO  TO  2000 
2Q3  UNR=UN 

HSS=NS 

PC=1 

IF   <NE    .EGO)     GO  TO  2700 

miN=N! 

MMRX=N I 

m I N=M I 

Nf1RX=ri  I  ' 

GO  TO  300 
2700  MM  I  H=ti  i 

MMflX=M 1 

Nri  I  N=N  I 

NriRX=N  i 

GO  TO  300 
295  I F  <  I  TAPE .  EO .  1 .)  GO  TO  297 

READ  (5,40)  XI/Y'l,ZI,NI,ni,NS,riE,UN 

IF  >;E0Fi:5).E0.0.  )  go  to  29Q 

NS=0 

Xl=0. 

V I  =0 . 

Zl=0. 

GO  TO  2Q9 
297  READ  <  50.40)  X  i , V I , Z I , N I , M I , NS , ME , UN 

EGF5n=EnF(5n) 

IF  (E0F50   .NE.O)  NS=0 

299  PC=PC+1 

IF  (NS.NE.NSS)  GO  TO  330 

300  IF  (NE  EO.O)  GO  TO  304 

301  IW=N! 
HI=MI 
MI  =  IW 

C      C.   STORE  PT.  IN  PT.  RRRRV 

304  IF  (MflXPC+l-PC)  295,305,310 

305  WRITE (6, 306)  NS,MI,Ni 

306  FORMAT -:60H  ERROR  IN  INPUT  -  THERE  ARE  TOO  MANV  DATA  POINTS  IN  SEC 
IT  I  ON  J4,30H  -  POINTS  BEGINNING  WITH  M  =J4,5H  N  =  J4, 

2  17H  WILL  BE  IGNORED   > 
L I NE=L I NE+ 1 
104=104+1 
GO  TO  295 
310  X':PC>=XI 
V<PC)=Vi 

Z':pc)=zi 

if  cmi.le.maxm  .and.  ni.le.maxn)  go  to  315 

WRITE(6.311)  ril,NI 
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L ! NE=L I NE+  1 
311  FORMfiTOSH  ERROR  IN  IHPUT  -  I  HURL  ID  t1,N  INDICES  J  OX. 

1   14HP0INT  WITH  M  =  ,  I4,5H  N  =  J4J7H  WILL  BE  IGNORED   ) 

ID5=ID5+1 

PC.=PC- 1 

GO  TO  295 
315  ID<M1 .Nl >=PC 

mRx=nRxo(nnRx.ni ) 
MMiN=Mmoa-iMiN,Mi  ■;• 

NmX=MRXO<:NriRX,NI  > 
Nt1IN=rilN0(NM!N,NI> 
GO  TO  2Q5 

330  IF  <IEDIT1.E0. 1>  00  TO  294 
IF  (:LINE.LT.40>  go  TO  333 
WRITE<6,42> 

L 1 NE=n 
GO  TO  294 

333  WRITE < 6,41) 
294  CONTiHUE 

C  E.      DO  LOOPS  TO  SWEEP  PT.    fiRRRV 

N1=miN 
MM2=ririflX-f1MIH 
NN2=NMRX-NM I N 

IF   (     nOD(rin2,2).EQ.O    .and.    ri0D(m2,2).E0.0>       GO  TO  332 
WR I TE ( 6 .  33  1  >  NSS  ,  MM !  N .  MilflX .  MM  1 N .  NMfiX 
L I HE=L I NE+  1 

331  FORMAT  a  e-HDERRGR  -  SECTIOM   J5,45H  DOES  MOT  HRUE  OUhDS  RRRhMGED    !N 
1   BLOCKS  OF  4   ,  9H         MM  I  M=    ,12, 6H  MMRX=    .  1 2 ,  6H  liM  I  M=    .12   , 

26H  MMRX=   ,12; 
I D6= I D6+ 1 

332  MM2=MM2/2 
NM2=Mri2/2 

DO  404  NM=1,NM2 
M1=MM!N 

DO  402  MM=1,MM2 
N0=1 
C      F.  HRUE  9  CORNER  PTS.  BEEN  GIUEN 

I  T=  I  D(M  1 .  N 1  :•*  I  D(M  1+ 1 .  N 1  >*  I  D(M  1+2 .  N 1  >*  I  D<M  1 .  N 1+  1  >*  I  D(M  1+ 1 ,  M 1+ 1  ;:■* 
1        1  Dai  1+  1 ,  M 1+2  >+  I  D<M  1 ,  N 1+2  >*  I  D(M  1+  1 ,  N  1+2  ;■+  I  D(M  1+2 ,  M  1+2  ) 
IF'.:    IT.EQ.O    )     GO  TO  402 
I ERR=0 
M2=M1+1 

N2=M1+1  =M1,M2 
DO  400  N=N1,N2 
GO  TO  "■;  334  ,  335  ,  336  ,  337  >  NO 

334  P1=ID(M  ,N  >■ 
P2=ID(M+1.N  > 
P3=ID(M+1^N+1> 
P4=lDai  ,N+1) 
P5=ID(h+2,N  > 
P6=ID'::M+2,N+1) 
P7=IDai+1,N+2) 
P3=ID(M  .N+2) 
P9=P1 

I  F<  CXvP  1  > .  NE  .  X':P2  > .  OR .  V<P  1  >  .  NE  .  V<P2  > .  OR .  Z<P  1  > .  NE  .  2<P2  >  >   .  AND . 
1   CX(Pi:'.NE.XCP4).0R.VCP1).NE.VCP4).0R.Z(P1).NE.Z<P4:O>  GO  TO  340 

P9=ID(M+2,N+2> 
GO  TO  340 

335  P1=IDai  ,N+1> 
P2=ID(M  ,N  > 
P3=ID(M+1.N      ) 
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P4=ID(M+1,N+1) 
P5=ID(M  ,H-1> 
P6=ID<t1+1,N-1) 
P7=IDa-1+2,N  ) 
PS=lD(h+2.M+1) 
PQ=P1 

I F< <X<P 1 > . NE . X<P2  > . OR . V<P 1 > . NE . V<P2  > . OR . Z<P 1> . NE . 2<P2  >  >   . AND . 
1   (X<Pn.NE.X<P4).0R.V<P1.">.NE.V<P4).0R.2>:P1>.NE.2(P4)))  GO  TO  340 

PQ=ID(M+2,N-1) 
GO  TO  340 


336  P1= 
P2= 

P3= 

P4= 

P5=ID<M+1.N+2> 

P5= 


D<ri+1,N      ) 

D<f1      .N+1> 
D(M     ,N      ) 


DCri  ,H+2:' 
P7=ID':t1-1,N+1) 
P8=iD(:M-1,H  > 
P9=P  1 

I F«X<P  1  > .  NE .  X<P2 ) .  OR .  V<P  1) .  NE .  V'::P2 ) .  OR .  Z<P  O .  NE .  Z<P2 ) )      .  RND  . 
1       <X(P 1 > . NE . X(P4 ; . OR . Y(P 1> . NE , V<P4 ) . OR . Z^P 1 > . NE . Z<P4 ; > ;  GO  TO 

P9=!D(M-1,N+2> 
GO  TO  340 


:;40 


337  P1=ID<ri+1 

.  N+  n 

P2=!Dai 

,N+1) 

P3=ID''h 

,N      > 

P4=ID(ri+1 

,N      ) 

P5=tD(M-1 

.  N+  1  > 

PD=tD(n-1 

,N      ) 

P7=ID(M 

,N-1) 

P8=ID(M+1 

.  N-  1  > 

P9=P1 

IFCa>:P1>.NE.X(P2>.0R.V(Pl>.NE.VtP2).0R.Z';Pl).NE.Z<P2;> 
1   <X(P  1  > .  NE .  X':;P4  > .  OR .  V<P  1  > .  NE .  V<P4  > .  OR .  Z(P  1  > .  NE .  Z<P4  >  >  > 
P9=ID(ri-1,N-1> 
340  |pa>=P1 

tP(2)=P2 

IP<3)=P3 

IP(4>=P4 

IF-:5;'=P5 

IP(6)=P6 

IP(:7>=P7 

IP(S>=PS 

iP<9)=P9 
G2  COnPUTE  NORMRL  UECTOR  (XN.YN.ZN) 

X1=X(P3;-X(P1) 

X2=X<P4>-X(P2> 

Y1=V(P3)-V<Pi:' 

V2=VCP4;-V(P2) 

Z1=Z<P3>-Z<P1> 

Z2=Z<P4>-Z(P2) 

XN=V2+Z1-V1+Z2 

VN=X1+Z2-X2+Z1 

ZN=X2*V1-X1+V2 

R=S02<XN,VN,ZN> 

IF  (R.GT.  .00000000001)  GO  TO  345 

UR1TE'::6,343) 
343  F0RriRT(:33H  ERROR    IN    INPUT  -  ZERO  RRER  OURD      > 

L!NE=LINE+1 

101=101+1 

ftQ=0. 


.  hND  . 
GO  TO 


i;40 


67 


XC=G . 

VC=0 . 

2C:=0 . 

FL=0. 

CZ<1>=0. 

CZ(4>=0. 

C:Z<5>=0. 

CZC6)=0. 

I ERR= 1 

GO  TO  351 
345  CONT 1  fiUE 

XN=XN/R 

VN=VN/R 

ZH=ZN/R 

fiQ= , 5*R 

COnPUTE  CENTRO ! D 

X1=X':P3)-X<P2> 

V1=V<:P3>-V<P2> 

Z1=Z<P3>-Z(P2> 

X5=V1+Z2-V2*Z1 

V5=Z1+X2-Z2+X1 

Z5=X1*V2-X2+V1 

fl1=S02<X5.V5,25) 

fl2=R-fi1 

IT=1 

XC=(X<P2  >+X<:P4  >+<R  1+X<P3  >+fl2*X<P  1  >  >/R  >/3 . 

VC=  ( V  ( P2  >+ V  ( P4  >+  ( fi  1 +V  ( P  J  H-;2+'v'  <  P 1 ) )  /B  >  /3 . 

ZC.= «:  Z  <  P2  )+Z  ( P4 )+  <  fl  1 +Z  <  P3  )+fl2+Z  <  P 1 ) )  /R )  /3 . 
COMPUTE  SECOND  RND  THIRD  UECTORS 
945  X4=Vri+Z1-V1+ZH 

V4=ZN+X1-Z1*XN 

Z4=XH*V1-X1+VN 

R=1./Sq2<X4.V4.Z4) 

X4=X4+R 

V4=V4+H 

Z4=Z4*fl 

X3=Zft^^V4-Z4*VH 

V3=XH+Z4-X4+ZN 

Z3=VN*X4-V4*XN 

COMPUTE  POIMTS  IN  QURD  SVSTEM 

DO  947  1=1. Q 

L=1P<I  > 

XP(  I  >=X3+<X<L  )-XC  )+V3+(V(L  >-VC  )+Z3+<Za  >-ZC 

VPk !  >=X4^*^C«L )-XC )+V4*<V(L )-VC .HZ4+(Z(L  >-ZC 

947  ZP  (.  I  >=XN+  <  X  (  L  ;)-XC  )+VN+  <  V  ( L  )- VC  >+ZN+-  ( Z  ( L  >-ZC 

COMPUTE  MRTRIX  COEF.    TO  FIND  SURFfiCE  EQ 

DO  949    1=2.9 


G(l,  1)=1. 

Ga,2>=XP(l  ■) 

G<i,3:'=vP(n 

G(I,4)=XP<I)**2 

Ga,5)=VP(l  )*+2 

G(l .6>=VP(I >+XP(l ) 

949 

F(i:'=zp(i ) 

DO  953    1=1,6 

GC1J  >=G(9,  I  ) 

G-::5.l  )=G'r.5,l)+G(6.l 

953 

GCe, 1 >=G(7, 1 >+G(8, 1 

F<1)=F<9> 

F<5>=F<5HF<6> 

F(6>=F(7>+F(S> 
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SOLUE  MATRIX  EQ.   G*CZ=F  FOR  C2 
CALL  MfiT I  MS  <  G . 9 , 6 , F , 6  J , DETERM  J  DM  J  NDEX  > 
IF  (IDM.EQ.  1)     GO  TO  (955,960)  IT 
IERR=1 
WRITE (5, 954) 

954  FORMRT  (3::;H  ERROR  IN  INPUT  -  SINGULRR  MATRIX 
L I NE=L I NE+ 1 

I D2= I D2+ 1 
GO  TO  Q60 

955  IT=2 

FIND  NEW  NORMAL  UECTOR 
XN=XN-C2'::2  )*X3-CZ<3  )*X4 
VN=VN-CZ ( 2 ;+V3-CZ ( 3 )+V4 
ZN=ZN-C:2(2  )+Z3-CZ<:3  >*Z4 
fl=1./SQ2<XN,VN.2H) 
XN=XN*R 
VN=VN*R 
ZH=ZH+H 
GO  TO  945 

STORE  DRTR 
960  B(:J+1)=XP(1> 
B(.J+2:'=VP(1> 
B(J+3>=XP<2> 
B(J+4)=VF<2? 
B<J+5)=XP';3) 
B<J+5>=XP(4) 
B(J+7>=VP':4> 
B(.J+S)=X3 
B(J+9?=V3 
B(J+10>=Z3 
E<J+11)=X4 
BCJ+12)=V4 
B':J+13)=24 
Bi:;,j+i4>=C2(i> 

E<J+15)=CZ<4) 

B(J+16>=C2<5> 

B(.J+1?>=C.2(6> 

IF  (K    .11.    7+MRXN0E>  GO  TO  965 

ID7=ID7+1 

K=0 
965  CONTINUE 
T<K+1>=XC: 
T(:K+2)=VC 
T<K+3>=2C. 
T(K+4)=XH 
T<K+5>=VN 
T(K+6>=ZN 
T(K+7)=AQ 

COMPUTE  QURDRUPOLE  MOMENTS 
XI1=XP':i)+XP(2) 
XI2=XP<1)+XP<4> 
XI3=XP<3>+XP<2> 
XI4=XP(:3;'+XP(4> 
X!5=XP<2>+XP<4) 
VI 1=VP(1)+VP(2) 
VI2=VP'M)+VPC4) 
VI3=VP(3>+VP(2) 
VI4=VP(3)+VP(4) 
VI5=VPf:2)+VP<4) 
R1=fl1,/24. 
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R2=fl2/24. 

R3=flQ/12. 

flXX=(X I 1**2+X 1 2**2  >*R 1  +  <X 1 3++2+X 1 4**2  >*R2+X 1 5*+2+R3 

flXV=  <  X 11 +V 11 +X 1 2*V 1 2 )+R 1  +  <  X 1 3*V 1 3+X 1 4*V 1 4  >*R2+X 1 5+V 1 5*R3 

flYV=<V  I  1**2+V  1 2**2  >*R  1  +  <V  1 3**2+V  1 4+*2  )*R2+S^  i  5++2*R3 
C      COMPUTE  SOLID  flHGLE 

XX=XC-XCENTER 

VV=VC-VCEriTER 

22=2C-2CENTER 

X 1=XX+X3+VV+V3+22+23 

V1=XX*X4+VV+V4+ZZ+Z4 

2 1=XX*XN+VV+VN+22*ZN 

RD=1./SC!2<X1,V1.21) 

Ri::U=RD**3 

RSU=RCU*+2+RD 

Sfi=Sfl+Z  1  *  (.  fip^RCU-  (.  ( RXX+  C  V 1 ++2+Z 1  *+2-4  .  *X  1  +*2 ; 
1  +fl VV* <  X 1  **2+Z  1  *+2-4  .  *V  1  **2 )  )*  1 . 5- 1 5 .  *X  1  *S'  1  *flXV  >*RSU  > 

B(J+18)=flXX 

B<J+1Q>=RXV 

B<J+20)=flVV 
C  ERROR  TESTS 

D 1 =Su2 ( ( XP ( 3  )-XP ( 1 ')  > ,  < VP ( 3  >- VP <.  1  >  '),0.  > 

D2=S02  <  <  XP  <  4  >-XP  <  2  >  >  ^ ( VP  < 4  >- VP  <  2  >  > ,  0 . > 

FL=.5+flmX1<D1,D2> 

CZ23=flBSc   CZC2:i    )  +  flB£>L   C2(3)    ) 

IF<;   flBS'.:C.2''2>>+flBS(CZ(:3>>    .GT.    FL*.001    >     00  TO  970 

IF  <  RBS<   CZCD)     .LT.      FL*.3    )     GO  TO  977 
970  URITE(6,975>     C223 
975  F0RI1HT(29H  OUESTIOmBLE  POINT  -POOR  FIT    ,5E14.3) 

I ERR=  1 

LINE=Lir€+1 
977    IF   ( VP C 1 ?*XP ( 2 )- VP ( 2 >*XP (  1  > 

1  VP(2j+XP':3>-VP':3:'+XPc2) 

2  VP  <  3  >*XP ( 4  >- VP ( 4  >*XP  <  3  > 

3  VP(4)*XP(1)-VPa>+XP(4>  .GE.  0.)      GO  TO  934 
980  WR I TE  ( 6 ,  1 000  >    <  XP  U  ) ,  VP  CI),  1  =  1,4) 

1000  F0Rf1RT(41H  ERROR  IH  INPUT  -  CROSSED  OR  CONCRUE  OURD 
1      4(2F10.5,3X)  ) 

IERR=1 

LINE=LINE+1 

i  D3= I D3+ 1 
984  CRCF=SQ2  ( C  XP  ( 2  >-XP  <  1  >  > ,  (  VP  <  2  >- VP  ( 1  >  > ,  0  >+XP  <  3  >-XP  <  2  >+  SQ2  (.  <  XP  <  1  >- 
1  XP(4>),  <VPa)-VF(4)),0.  )+SQ2((XP<4)-XP(3)),(VP(4>-VP<3;),0.  ) 

IF   (   36>R0    .GT.    CRCF++2    )     GO  TO  986 

L I NE=L I NE+  1 

WRITE (5, 961) 
961  FORMfiT  <24H  UfiRNING  LONG  THIN  OURD.:) 
986  IF  <  Z1  .GE.  0.  )  GO  TO  351 

350  WRITE  ':6,S5) 

85  FORhRT  (35H  GUEST lONRBLE  POINT  -  INURRD  NORMRL.) 
! ERR= 1 
L I NE=L I NE+  1 
C      J.   EDITE  OURD  INFORNRT'uN 

351  IF  (IEDIT1.EQ.2.flND.  lERR.EQ.O)  GO  TO  354 
IF  <  IEDIT1  .EO.  1  >  GO  TO  354 

GO  TO   (356.357,358,359)     NQ 

356  URlTE<6,5r)     M,X(Pr).X(P2),X(P3),X(P4),XC.XN,RQ        .CZ<4)      . 

1  N,V<:P1>,V<;P2).V<P3>.V<P4>^VC.VN',FL        ^CZ<5>      ', 

2  P'  Z<P  1  )■  Z(P2 )■  Z(P3 )■  Z(P4  ), ZC'  ZN',  CZ(  1 ), CZ<6 > 
GO  TO  360 

357  WRITE<6.51>  n,X<P2),X<P3),X(P4),X(P1  ).XC.XN,RO   ,CZ--;4)   . 
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GE. 

0. 

.  AND 

GE. 

0. 

.  RND 

GE. 

0. 

.  RND 

GE. 

0. : 

) 

1  N,V<P2>.V«:P3),VtP4),V':pn,VC.VN,FL   ,cz-:5) 

2  P,Z<P2>,Z(P3>,2<:P4>,Z<:P1>,ZC,2H.CZc:1>,CZ(6> 
GO  TO  360 

358  WRITE(5.51)  M,X-:P4),X<P1  ),X<;P2),X(P3>,XC/XH,flQ   .C.Z<4) 

1  M,Y<P4?,Yf:P1>/Y'';P2>.V(P3>,YC.YN.FL   ',CZ<5> 

2  P,Z(:P4),Z(P1>,Z<P2>;.Z<P3>^ZC'ZN;CZ<1>;.CZ(6) 
GO  TO  360 

359  WR1TE':6,51>  n.X':P3>,XCP4>,X(Fn,X(P2?,XC,XH.  RQ   ,CZ(4) 

1  N,V<P3),Y(P4),V<P1).V<:P2),YC\,VN,FL   ,CZ':5> 

2  P .  Z<P3  > .  Z(P4  >,  Z<P  1  >,  2<:P2  > .  2C  .  2H ,  CZ<  1  >,  CZ'::6  ) 

360  CONTIHUE 

51   FORMftT   (1H   J3,8E14.5/1XJ3.8E14.5/1XJ3,8E14.5,0 
LmE=LmE+4 

IF  (LINE.LT.SO)  GO  TO  354 
352  WRITE  (6,42> 
LIME=0 

354  CONTINUE 
J=.J+20 
l=P 

DM< I )=UNR 
P=P+ 1 
HO=NQ+ 1 
IERR=0 
349  K=K+7 
C      K.   WRITE  OUT  BLOCK  OF  B  RRRRV  IF  FULL 
IF  (J.LT.240>  GO  TO  400 

355  WR I TE  <  04  ;■  0 ,  <  B  ( I  )  J  =  1 ,  240 ) 
Q=P 

J=0 
C      L.   END  OF  DO  LOOP  OUER  PT.  RRRflV 
400  CONTINUE 

402  m=ni+2 

404  N1=N1+2 

C      f1.   SET  FOR  NEXT  SECTION 
NSS=NS 

DO  405  M=MMIN,mfiX 
DO  405  N=Nri!H.NmX 

405  IDc:ri.N::.=0 
PC=1 

IF   (ME    .EO.O)     GO  TO  410 

NMflX=N ! 

MM  I H=N  i 

NMIN=MI 

NMRX=M I 

GO  TO  420 
410  MriHX=MI 

MM  I N=M I 

NM ! N=N 1 

NMflX=N I 
420  NE=ME 

UNR=UN 

IF  (NS.LE.O)  GO  TO  500 

WRiTE<6,45>  ICNTRL.NS 

LINE=0 

GO  TO  300 
500  WRITE  (04)  Q,  (B(  I  ),  1  =  1,240) 
550  NP=CK+K1)/7 

ISMP  =  ISM  +  1 

GO  TO  ( 595 , 590 , 580 , 570 ) ,  i  SMP 
570  SR=Sfi+Sfl 
580  Sfi=SR+Sft 
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5Q0 
595 
597 


598 
60Q 
601 


Sfl=Sfi+Sfi 

01  WRITE  PflRflMETERS  AND  T  fiRRflV  OH  TRPE 
J  =  1 


IF  <ITflPE.EQ 
WSCJ)  =  XI 
WS<J+20>  =  V 
WS<.J+4G>  "  2 
J  =  J+1 
IF(XI+*2  +  V 
WRITE (6, 600) 


1  .AMD.  E0F50  .NE.O  ) 


GO  TO  601 


♦+2  +  Z 
X I  ,  V 1 


*+2)  599,599.599 
Zl 


599 


605 

510 

80 

620 

622 


F0RnflT( 1 1HOEXTRfi  FLOW, 10X, 3F 12 . 5 ) 

REflD(5,40)  Xt.VI.Zl 

IF   <E0F(5>    .EQ.    0>     GO  TO  597 

Xl=0. 

Vl=0. 

Zl=0. 

GO  TO  597 

IF  CISP.LT.O)  GO  TO  605 

WRITE   (03)  <PROB(l  >J  =  1  J5) 

WR I TE   (03 )   (US( I ) J  =  1 , 220  > . 1  ED  I T3 . 1  ED  I T4 

WRITE    (03 >   (T(l  :>,  l  =  1,K> 

WRITE   (03 >   (DIKI  ;'.I  =  1.NP> 

CONT I  HUE 

HI  CHECK  SOLID  RHGLE 
liRlTE  (6.90)  Sh 

F0RmT(14H0S0LID  RHGLE  =  ,F8.3> 
REWIND  04 
REWIHD  03 

I DS= I D 1+ 1 D2+ 1 03+ 1 04+ 1 05+ I D6+ 1 07 
IF  (IDS.EQ.O  .RHD.  h'P.EQ.HQE)  GO  TO  638 
WRITE (6. 625) 


IF 

(101 

GT .  0 ) 

WRITE (6, 528)   ID1 

IF 

(102 

GT.O) 

WRITE (6 ,629)   1D2 

IF 

( I D3 

GT  0  > 

WRITE (6, 630)  ID3 

IF 

(ID4 

GT.  0) 

WRITE (6, 631)  ID4 

IF 

(IDS 

GT.  0> 

WRITE (6, 632)   IDS 

IF 

( !  Dd 

GT.  0> 

WRITE (6, 633)   ID6 

IF 

(ID7 

GT.  0) 

WR!TE(6.634)  rff'.mXHO 

IF 

(HP. HE 

: . HOE ) 

WRITE (6, 637)  HP, HOE 

625 
628 
629 
630 
63 1 
632 
633 

634 

637 
638 

639 

640 


STOP 

FORMAT (3SH0FHTRL  ERROR  IH  DATA  -  PROGRAn  ABORTED) 

FORMflTdHO.  I5.31H  OUhDRILRterrlS  WITH  ZERO  RRER        ) 

QUADR I  LATERALS  GENERATE  A  SINGULAR  MATRIX     ) 

CROSSED  OUADRl LATERALS         ) 

SECTIONS  HA'JE  TOO  NANS'  POINTS   ) 

POIHTS  HAl'E  INUALID  M,H  INDICES   ) 

SECTIONS  DO  HOT  HAUE  OUADS  ARRANGED  IN  GROUPS  0 


I5,44H 
1 5 , 26H 


FORNATdHO, 

FORNATdHO, 

FORNRTdHO,  I5,32H 
5,34H 
5 .  52H 


FORMAT (1 HO 

FORMAT ( 1H0 
IF  4   ) 

F0RMATdH0J5,4SH  OUADRl  LATERALS  GIUEH,  EXCEED  IHG  THE  LIMIT  OF 
1    14) 

FORMAT ( 1 HO  J  5 , 23H  OU ADR  I  LATERALS  G I UEN ,  NOT  J  4 ) 

IF  (ISP.LE.O)  GO  TO  640 

WRITE (6. 639)  ISP 

FORMAT (7H0  ISP=  , 14,  19H  -  PROGRAM  ABORTED   ) 

STOP 

CONT I  HUE 

02  READ  PEPS2  AND  TRANSFER  TO  IT 

STOP  1 

END 


FUNCTION  SQ2(X,V,Z) 
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C  COMPUTE  SQURR  ROOT  OF  R*+2 

R=  flBS<X.>+ftBS(V>     +l=iBS<Z>  +.0000000000001 
700  RS=.X+*2+V*+2  +Z+*2 

R=R+RS/R 

R=,25*R+RS/R 

R=R+RS/R 

S02=.25*R+RS/R 

RETURN 

END 
C 

SUBROUT I  HE  riRT  I HS  ( R ,  HR ,  N 1 ,  B ,  HC ,  Ml ,  DETERM ,  !  D  J  NDEX ) 
C       MATRIX  INUERSION  UITH  RCCOMPflNVlNG  SOLUTiOM  OF  SIMUL.  EO. 
C     PI 'JOT  METHOD 

C     FORTRhN  IU  single  PRECISION  WITH  RDJUSTRBLE  DIMENSION 
C     HOUEMBER  1971  S  GOOD  NflURL  SHIP  R  &  D  CENTER 
C     WHERE  CRLLING  PROGRAM  MUST  INCLUDE 

C  DIMENSION  R(NR,NR).  BCNR.NC),  INDEXvNR.S) 

C  WHERE  MR , NC  RRE  D I  MEMS  I ONS  OF  ft . B  J  NDEX 

C  N1  IS  THE  ORDER  OF  R 

C  Ml  IS  THE  NUMBER  OF  COLUMN  UECTORS  IN  B  (MRV  BE  0) 

C  DETERM  WILL  COHTRIN  DETERM INRNT  ON  EXIT 

C  ID  WILL  BE  SET  B'V  ROUTINE  TO  2  IF  MRTRiX  R  IS 

C  SINGULfiR,  1  IF  INUERSION  WRS  SUCCESSFUL 

C  MRTRIX  fl' (INPUT  MATRIX)  WILL  BE  REPLACED  BV  A  INU 

C  MRTRIX  B:  THE  COLUMN  UECTORS  WILL  BE  REPLRCED 

C  BV  CORRESPONDING  SOLUTION  UECTORS 

C  INDEX:  WORKING  STDRRGE  RRRRS' 

C     IF  IT  IS  DESIRED  TO  SCALE,  THE  DETERMINANT  CARD  2y  MRV  BE 
C     DELETED  AND  DETERM  PRESET  BEFORE  ENTERING  THE  ROUTINE 
C 

D I  MENS  I  ON  R ( NR , NR  > .   B  <  NR . NC ) ,   ! NDEX ( NR , 3  > 

EOUIURLENCE  ( IROU.,  JRDW:',  ( ICOLUM,  JCCLUM:'..  (RMAX,  T,,  SWAP.:' 
C 

C     i  N I T I  ML  1 2RT I  ON 
C 

N=N1 

M=M  1 

DETERM= 1 . 0 

DO  20  U=1.N 
C 

20  INDEX(J,3>=0 

DO  550  l=1,H 
C 

C     SERRCH  FOR  PIUGT  ELEMENT 
C 

flMRX  =0.0 

DC  105  J=1,N 

IF<INDEX(J,3)-1)  60,  105,  50 
60  DO  100  K=r.N 

IFaNDEX(K',3>-i:'  80,  100,  715 
SO  IF  (     RMRX  -RBS  (fl(J,K)))  85,  100,  100 
85  (ROW  =  J 

ICOLUM  =  K 

RMRX  =  RBS  <R(J,K)> 
100  CONTINUE 
105  CONTINUE 

INDEXdCOLUM.S)  =    I  NDEX  (  ICOLUM,  3)  +    1 

INDEX-:  i ,  1)  =  mow 

INDEX-:  1, 2)  =  ICOLUM 

c 

C     INTERCHftNGE  ROWS  TO  PUT  PIUOT  ELEMENT  ON  DIRGONRL 
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c 

IF   < I  ROW- 1 COLUM >    140,    310,    140 
140  DETERri=  -DETERM 
DO  200  L=1,N 
SmP=  fid  ROW,  L) 
i=l(IROU,L>=fiaC.OLUri.L> 
200  fl<IC:OLUM,L>=SlJfiP 

IF(M>  310,    310,    210 
210  DO  250  L=1,M 
SmP=B(IROW,L) 
B<IR01J,L>=B(IC:0LUM,L) 
250  BCICOLLIM,L)=SUflP 
C 

C  DIUIDE  PIUOT  ROW  EV  PIUOT  ELEnEfiT 

C 

310  PIUOT  =  fldCOLUn,  ICOLUM) 

DETERri=DETERM*P  I UOT 
330  fldCOLUM,  ICOLUM)  =    1.0 

DO  350  L=1,N 
350  R  '■;  I COLUM ,  L)=R  U  COLUM ,  L  )  /P I  UOT 

IF    (n>  380,    380.    360 
360  DO  370  L=l'ri 

370  B  ■:;  I  COLUM .  L  >=B  <  I  COLUM  ,  L  >  /P I  UOT 
C 

C     REDUCE  NON-PI UOT  ROUS 
C 

380  DO  550  L1=1,N 

tF(L  1-1 COLUM)  400,  550.  400 
400  T=ftai,  i  COLUM  > 
fl(L1. IC0LUM>=0.0 
DO  450  L=1.N 
450  R  <  L 1 , L )=fl  a_  1 , L  ?-R ( I COLUM , L  >+T 

IF  ar.'  550,  550.  460 
460  DO  500  L=1.M 

500  B  a  1 ,  L  :)=B  •;  L 1 ,  L  )-B <  I  COLUM ,  L  )*T 
550  CONT I NUE 
C 

C     INTERCHRNGE  COLUMNS 
C 

DO  710  i=1,N 
L=N+1-I 

IF  <INDEX<L,  1>-mDEX(:L,2>>  630,  710,  630 
630  JROW=  INDEX'X, 1) 
JC0LUM=INDEX(L.2) 
DO  705  K=1,N 
SWfiP  =  fi<K',JROU> 
fl<K  ,  JROU  >=fi'::K .  JCOLUM  ) 
fi(K.JCOLUM>=SURP 
705  CONTINUE 
710  CONTINUE 

DO  730  K=1,N 

IF<INDEXa(,3>-1)  715.  720,  715 
720  CONTINUE 


730 

CONTINUE 
iD=1 

810 

RETURN 

715 

ID=2 

GO  TO  810 

END 

/ 
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flPPEHDIX    H    -   XVZPF   SECTIOM   PF2 

PRQGRflM  PF2(GUTPUT=  128,  TflPE5=0L!TPUT,  TfiPEOS,  TRPE02  JflPEOS, 

1  TflPEOQ , TflPE0 1 , TAPE  1 1 . TftPE04 , TflPE4=TRPE04 , 
3                             TfiPE1=TflPED1. 

2  TflPE3=TRPE03 , TRPE2=TRPE02 , TRPE8=TRPED8 , TRPEQ=TRPE09 ) 
C 

C  XVZ  POTEHTiflL  FLOW  PROGRRM     UERStON  4     SECTION  2 

C  COMPUTES  MRTRIX  COEFFICIENTS 

C 

COriMON    B  ( 24 1) ,  T  ( 4500  > ,  U  1<  1 000 ) ,  U2  ( 1 000 ) ,  U3  ( 1 000 ) ,  C 1  (  900 ) ,  C2  C  Q 
200 ) ,  C3 1:  QOO  > ,        US  <  300  ) ,  PROB  05), 
3UX(S>,US'<S>,UZ<S> 
EQU I  UftLENCE'::V3 .  V2  >     ,  (liS(20 1  > .  NP  > .  (WS(2 10  >,  SVM ) .  ';WS<2 11).  KM ) 
1    , <WS<2 12  > . I PF  >   , <WS<208  > . I  PS  >  , (KM , MK  > 
INTEGER  SVM 
BLK=1.0 
IDW=0 

REflD<03)     (PROEKI  >J  =  1,  15) 
URITEc:es5) 
5  F0RriRT(49H0XVZ  POTENT IRL  FLOW  PROGRRM  SECTION  2,  UERSION  4   ) 
90  FORMRTdHO,  15R4) 

WRITE  <6  .90)  (PROBd  ),  1  =  1.  15) 

C      fl.   RERD  PRRRMETERS,  T  RRRRV,  FIRST  BLOCK  OF  B  RRRRV 
READ  (03)    (WS(!  ).  1  =  1,220) 
RERD (03)    (T<l),  !  =  1,MK) 
REflLK04)    (B(I)J  =  1,241) 
C      B.   STRRT  LOOP  OUER  OURDRRLRTERRLS 
K=1 
..1=1 
P=1 
JC=  1 
JU=2 

HPH=5+f  <HP+4),."5) 
KMM=7+NPN+ 1 
2Q0  IF(B(1)-P)595,295,595 
98  FORMRTC POINTS  OUT  OF  ORDER  B(1)=MF4.0,"  P=MF4.0) 

295  J=2 

296  X1=B(J) 
V1=B(J+1) 
X2=B(J+2) 
V2=Bv  J-'-3) 
X3=B(J+4) 

C     V3=V2 

X4=B(J+5) 

V4=B(.J+6) 

XN=T(K+3) 

VN=T(K+4) 

2N=T(K+5) 

XC=T(K) 

VC=T(K+1) 

ZC=T(K+2) 

fl=T(K+5) 

XX=B(J+7) 

VX=B(J+8) 

ZX=B(.J+9) 

X.V=B(J+10) 

VV=B(.J+11) 

ZV=B(J+12) 
C      C1  COMPUTE  LENGTH  OF  SIDES  OF  QUAD 

D 1 2=S02F (XI. X2 , V 1 , V2 . 0 . . 0 . ) 

D23=SQ2F  ( X2 .  X3 .  V2 .  V3  ■  .  0  ■.  .  0 ) 
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D34=S02F  as  ,  X4 ,  V3  ,  V4  .  .  0 ,  .  0  ) 

D41=SQ2F<X4,X1,V4,V1, .0, .0) 
C      C2  COnPUTE  SLOPE  OF  SIDES 

IF(X2-X3>305,300,305 
300  C!23=1. 

GO  TO  310 
305  CM23=<V2-V3>/<X2-X3> 

C 1 23=0 . 

310  IF<X3-X4)315,311,315 

311  Ci34=1. 
GO  TO  320 

315  CM34=(V4-V3>/<X4-X3) 
C 1 34=0 . 

320  I F  <  X4-X 1 >325 ,321, 325 

321  CI  4 1=1. 
GO  TO  330 

325  Cri4 1 = <  V 1  - V4 )  /  ( X 1  -X4  ) 
Ci41=0. 

330  IF(X1-X2>335,331,335 

331  CI  12=1. 
GO  TO  340 

335  Cri12=(:V2-V1>/<X2-X1> 

CI  12=0. 
C      C3  COMPUTE  QURDRRPOLE  MOMEHTS 
340  CIXX=E':J+17) 

CiXV=Bc:J+18> 

civv=B':j+19> 

CV  12=0.0 
CXI 2=0.0 
CV23=0 . 0 
CX23=0 . 0 
CY34=0 . 0 
CX34=0 . 0 
C:V4 1=0.0 

CX4 1=0.0 
C'      C4  COMPUTE  SIM  RMD  COS  OF  SLOPE  RNGLE  FOR  EACH  SIDE 
IF  (D12)  9341,9342,9341 

9341  CV12=(V2-V1.\/D12 
CX12=<X1-X2>/D12 

9342  I F ( 023  >9343 , 9344 , 9343 
Q343  CV23=(V3-V2)/D23 

CX23=C<'2-X3  >/D23 

9344  I F  >:  034  )9345 ,  9346 ,  9345 

9345  CV34=(V4-V3)/D34 
CX34=(X3-X4>/D34 

9346  I F ( 04 1  )9347 . 934S , 934? 

9347  CV41  =  (V1-V4.':'/041 
CX41  =  (X4-Xn/041 

C      05  COMPUTE  MRX  LENGTH  OF  QURD 

9348  ST=flBS(X1-X3> 

ST2=SQ2F  K X2 , X4 , V2 , V4 , . 0 , . 0  > 
ST=flMRX  U  ST , ST2 , 0 1 2 . 023 . D34 , D4 1 ) 
C      D.   STRRT  LOOP  OUER  MULL  PTS. 

342  KQ=1 
L=1 

343  i=KO 

IF(IPS)  9360,9360,9350 
9350  1F(L-IPS>  9335,9352,9352 
9352  IF<L-IPF.)  9360, 9360, 9355 
9355  C1(JC>=.0 

C2(JC>=.0 

C3<JC>=.0 
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GO  TO  541 
9360    IS=1 

XCC!=T<  I  ) 
VCQ=Ta  +  1) 
2C0=T(l+2> 
XHQ=T(l+3> 
VN0=T<l+4> 

344  ZN0=T(l+5) 

C      E.   COMPUTE  DISTflNCE  BETUEEN  QUAD  AND  NULL  FT 
C         .  DETERMiN  METHOD 

345  RPU=S02F  <  XC , XCQ , VC , VCD , 20 , 2CQ ) 
I  Fr;RP0-ST*4  >25(j ,  350, 460 

350  X=  <  XCQ-XC )*XX+  <  VCQ- VC  >*VX+  <  ZC0-2C  >*2X 

V= (XCQ-XC  >*XV+ ( VCQ-VC )*VV+ ( 2CQ-ZC )+ZV 

2=(XC0-XC  >*XH+<VCO-VC  >*VH+(2C0-ZC  >*ZH 

I F  <  RP0-ST+-2 .  0  )355 ,  355 ,  400 

C      F.  COMPUTE  UELOCITV  COEF . 

355  R 1=SQ2F(X , X 1 , V, V 1 . 2 , 0 .  > 


BV  EXRCT  METHOD 


361 


363 


364 
366 


367 
368 


36g 

370 


GO 

TO 

1000 

GO 

TO 

1000 

GO 

TO 

1000 

GO 

TO 

1000 

R3=SC!2F<X.X3/.',V3,Z,0.  ) 

R4=S02F(X.X4,V,V4,Z,0. > 

IF  ((R1+F;2>  .LE.  D12> 

IF  <<R2+R3>  .LE.  D23) 

IF  <<R3+R4)  .LE.  D34) 

IF  -;':R4+R1>  LE.  D41) 

CLR 1  =flLOG  ■::  <  R 1 +R2-D 1 2  >  /  ( R 1 +R2+D 1 2  >  > 

CLR2=flL0G( (R2+R3-D23 )/<R2+R3+D23 ) > 

CLR3=fiL0G< (R3+R4-D34 )/<R3+R4+D34 ) ) 

CLfi4=RL0G( (R4+R 1-D4 1 >/<R4+R 1+D4 1 > ) 

TUX=CV 12+CLH 1+CV23*CLfl2+CV34+CLH3+CV4 1+CLfl4 

TUV=CX 12+CLfl 1+CX23*CLfl2+CX34+CLfi3+CX4 1+CLfl4 

TUZ=0 . 


lF(flBS':Z/ST>-.010> 

ZS0=2'++2 

E1=ZSQ+<.X-X1)**2 

E2=2£Q+(X-X2)**2 

E3=ZSQ+(X-X3) 

E4=ZSU+(X-X4> 


!75 .  36 1 .  36 1 


H1=<V-V1>* 
H2=<V-V2?+ 
H3=';V-V3>* 
H4=vV-V4>+ 


<X- 


++2 
++2 
XI  > 


■(X-X2) 
■';X-X3) 
KX-X4> 

iF(CI 12)363,363,364 

US  1  =  c;CM  12+E  1-H  0/<Z+R  1) 

WS2=  <  cm  2*E2-H2 )  /  C  2*R2  > 

RT1=RThN(wS1) 

RT2=RTfiN(WS2> 

TU2=flT1-flT2 

IF'X!23;>366,366.367 

RT3=RTRM<  (CM23+E2-H2  >/c:2*R2  >  > 

RT4=RTRN( (CM23+E3-H3 )/<Z+R3 ) ) 

TUZ=TU2+fiT3-RT4 

IF (CI  34)363, 363, 369 

RT5=HTHH  ( ( Cri34+E3-H3 )  /  ( Z*R3  >  > 

flT6=flTRN<  (CM34+E4-H4  )./<Z+R4  >  > 

TU2=TUZ+RT5-RT6 

I  F<C  14  1)370,. 370,. 375 

RT7=RTflH<  (CM4  1+E4-H4  ),/<2+R4  >  > 

RT8=RTRN(  (C:M4 1+E 1-H 1  ),/<Z+R  1 ) ) 

TU2=TU2+RT7-flT8 

GO  TO  450 

G.  COMPUTE  UELOCITV  COEF.  BV 


QURDRRPOLE  METHOD 
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400  RPQ3=RPQ**3 

RP07=<RPQ3**2>*RPQ 

WS1=  X/RP03 

XS0=X+*2 

S'S0=V**2 

ZSQ=Z**2 

PS=VSQ+ZSQ-4 . *XSO 

QS=XSQ+ZSQ-4 . *VSQ 

lJS2=Y+,:y .  *PS+30  .  *XSQ  )/RPQ7 

WS3=3.*V+PS/RPC!? 

WS4=3.*X*qS/RPG7 

TUX=fl+US 1-C I XV+WS3-C I XX*US2-C 1 VV*US4 

WS1=V/RPQ3 

US2=V*(Q .  *C!S+30 .  *VSQ  >/RPC!? 

TUV=H>*^US  1-C  I  XX*WS3-C:  I  XV*US4-r: !  VV*WS2 

TVZ=Z+(R/RPQ3-3 . ^CC I XX*FS-5 . *C I XV*X*V+C I VV*QS  ?/RFQ7  ? 
450  UX<I£)=TUX+XX+TUV*XV+TUZ  *XN 

UVC I S  )=TUX+VX+TUV+VV+TUZ-+VH 

UZ( I S  >=TUX*ZX+TUV+ZV+TUZ*ZN 

GO  TO  470 
C  H.      COnPUTE  UELOCITV  COEF .    EV  nONOPOLE  flETHOD 

460  flRPQ3=R / ( RFQ+*3  > 

UX-::  I S  >=      <XCQ-XC  >+flRPQ3 

UV(IS)=      (VCQ-VC>+flRPQ3 

U2  (. !  S  ;■=  •:  ZCG-2C  )+flRP03 
C       I  .   REFLECT  HULL  PT .  IN  PLfiHE  OF  SVMETRV 

470  GO  TO ( 480,435,490,495, 500 ,505,510,515),! S 
C        DO  LOOPS  SET  UP  TO  FORCE  USE  OF  INDEX  REGISTERS 

480  J1=JU 
J2=JC 
UDX=UX(1> 
UDV=UV(  1  > 
UDZ=U2';  1 ) 
UKJ1>=UX(1> 
U2(J1)=UX(1) 

U3(jn=ux(i> 

ni<,_n+i)=nv(1> 
U2(.J1+1>=UV(1) 

U3<ji+i>=uva> 

UKJ1+2?=UZ<1) 
U2U1+2>=UZa) 
U3*::J1+2>=UZ'C  1> 
IF(SVn>  530,530,481 

481  IS=2 

C  XZ  SVriETRV 

VCQ=-VCQ 

GO  TO  345 
485  IF(SVri-1)517,517,485 
C  XV  SVMETRV 

48G  IS=3 

ZCQ=-ZCn 

GO  TO  345 
490  18=4 

VCQ=-VCQ 

GO  TO  345 

495  I F  ( S Vi  1-  2  :'5  1 6 ,  5  1 5 , 4  95 
C  VZ  SVMETRV 

496  IS=5 
XCO=-XCO 
GO  TO  345 

500  IS=6 

VCQ=-VCQ 
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505 


510 


515 


515 


517 


530 


GO  TO  345 

IS=7 

ZC:Q=-ZCO 

GO  TO  345 

IS=8 

VCQ=-VCQ 

GO  TO  345 

J.   ROD  COMTR I  BUT  I ONS  OF  RLL  REFLECTIONS 
U  K  J 1  )=U  U'  J 1  )+UX  C  S  HUX  (  7  )+UX  (  6  >+UX  •:  5  ) 
02 < J 1  )=U2  <  J 1 >-UX  <  8  >+UX ( 7  >+UX  < 6  >-UX  < 5  > 
U3 ( J 1  >=U3 ( J 1 >-UX ( 8  >-UX ( 7 )+UX  <  6 )+UX  <  5  > 
U  U"  J 1+  1  )=U  U  J 1+  1  )-UVc:8  >+UV-r7  )+UV<6  >-UVC5 ) 
U2  <  J 1  + 1  >=U2  ( J 1  +  1  >+UV  (  8  >+UV  <  7  )+UV  <  6  HUV  (  5  ) 
U3  ( J 1  + 1  )=U3  ( J1  + 1  >+UV  ( 8  >-UV  ( 7  >+UV  C  5  >-UV  ( 5  > 
U  K  J 1 +2  >=U  K  J 1 +2  >-UZ  <  8  >-UZ ':  7  >+UZ  <  6  >+iJZ  <  5  > 
U2  <  J 1  +2  >=U2  <  J 1  +2  :'+UZ  ( 8  )-UZ  ( 7  >+UZ  ( 6  )-UZ  C  5  ) 
U3<  J 1+2  )=U3(  J 1+2  >+UZ<S  >+UZ<7  )+UZ<5  'HUZCS ) 
U  K  J 1  >=U  1  <  J 1  >+UX  <  4  >+UX  <  3  > 
U2 ( J 1  )=U2 ( J 1 )+UX ( 4 )-UX ( 3 ) 
U3(  J 1  )=U3c:  J 1  )-UX(4  )-UX(3  ) 
U  K  J 1 + 1 >=U 1 ( J 1 + 1 >+UV ( 4  >-UV ( 3  ) 
U2  <  J 1 + 1 >=U2 ( J 1 + 1 )+UV  <  4  >+UV ( 3  > 
U3  <  J 1  +  1  >=U3  <  J 1  + 1  >-UV  <  4  ::'+UV  <  3  > 
U 1 <  J 1 +2 )=U 1 <  J 1 +2  >-UZ ( 4  >-UZ  <  3  > 
U2  ■;  J 1 +2  )=U2  ( J 1 +2  >-UZ  <  4  >+UZ  k  3  > 
U3  C  J 1 +2  >=U3  V  J 1 +2  >+UZ  <  4  >+UZ  <  3  > 

ui(Ji>=ui(ji.HuX';2) 

U2(J1)=U2<J1)-UX<2) 
U3 ( J 1 >=U3  <  J 1 >+UX  <  2  > 

ui';ji+i)=ui(ji+i>-uv(2> 

U2<J1+1>=U2':J1+1)+UV<2> 

U3(J1+n=U3CJ1+1>-UV':2:' 

U  K  J  1+2  )=U  U  J 1+2  )+U2':2  ) 

'v'2  >::  J 1  +2  >=U2  <  J 1  +2  >-UZ  <  2  > 

U3 ( J 1 +2  >=U3 ( J 1 +2  >+UZ  <  2  > 

C 1  ( .J2  )=XNQ+U  K J 1  >+VHO+U  1  <J  1+  1  >+ZMQ*U  1  < J 1+2  > 
C2  <  J2  )=XN0+U2  ( J 1  )+'y'M0+U2  ( J 1  + 1  >+ZfiO+U2  <  J 1  +2  > 
C3  ( J2  )=XNn*U3  ( J 1  >+S-'fiQ+U3  C  J 1  + 1  >+ZHQ+U3  <  J 1 +2 ) 


540  JU=JU+3 

541  JC=JC+1 

C      0,   URITE  COEF 1 C 1 ENTS 

C      K.   WRITE  COEF.  ON  TFiPE  OR  DRUM  IF  STORROE  RRER  iS  FULL 

I F(JU- 100 1)570, 555, 555 

JU=2 

U 1< 1 ;=ELK 

U2(1>=ELK 

U3<  1  >=E!LK 

I F ( BLK-535 . 0  >  550 , 553 , 565 

URiTE   COlJ  BLK,U1,U2,U3 

GO  TO  568 

REUiND  01 

URITEaD  BLK,U1,U2,U3 

BLK=BLK+ 1 .         ' 

I F(JC-yG 1)580. 57 1,571 

1 DW= I DU+ 1 

WRITE   (02)    IDU,C1 

WRITE   (OS)    1DU.C2 

WRITE   (09)    IDW,C3 

JC=  1 

KQ=KQ+7 

L=L+1 

L.   END  OF  LOOP  OUER  NULL  PTS. 


555 


5Du 

553 
565 
568 
570 
571 


580 
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IF<KQ-k'M      )343,343,5S1 
581   C1(JC>=0 
C2<JC)=0 
C3(:JC)=0 

!F<K0-Krin)541,5S5,5S5 

585  P=P+1 
K=K+7 
J=J+2n 

IFCK-KM      )5S6, 536,600 
C  N.      EHD  OF  LOOP  OUER  QURDS . 

C  f1.      READ  NEXT  BLOCK  OF  B  RRFifiV    IF  rCEDED 

586  I F  <  J-24 1 )2Q6 , 5Q0 , 590 
590  RERD ( 04  > ( B  < I ; , I  =  1 , 24 1  > 

J=2 

IF<B<1>-P>5y5.296,595 
595  WRITE  (6.98)  B(1),P 

STOP 
600  IF(:BLK-636.0>  610,520,630 
C      0.   WRITE  REMfllNlNG  COEF.  ON  TRPE  OR  DRUM 
610  WR I TE ( 0 1 >BLK , U 1 , U2 , U3 

REWIND  01 

GO  TO  640 
620  REWIND  01 
630  WRITEdl)  BLK,U1,U2,U3 

REWIND  11 
640  WRITE  (02 >  IDW.CI 

WRITE  (OS)  !DW'C2 

WRITE  (OQ)  IDW.C3 

REWIND  02 

REWIND  03 

REWIND  04 

REWIND  OS 

REWIND  OQ 
C      P.   TRRHSFER  TO  PFPS3 

GO  TO  5000 
1000  WRITE (6/2000)  L,P 
2000  F0RMRT(3H  L=  .!5.2nx,3H  P=  ,F5.1) 
5000  CONTINUE 

STOP  2 

END 

FUNCT I  ON  S02F ( X 1 , X2 , V 1 , V2 , Z 1 , 22  ) 

X=X1-X2 
1  LI  I  i   I  i-~i 

T  -  V  I  -  V  i 

-J_-7  <   -7-1 

RS— Z**2+V**2''"X**2 

R=RBS ( X )+RBS ( V  )+fiBS ( 2 )+    1 . OE-20 

R=R+RS,/R 

R=.25+R+RS/R 

R=  R+RS/R 

S02F=  .25+R+RS./R 

RETURN 

END 
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flPPEHD IX    ill    -   XVZPF   SECT i OH   PF3 

PRDGRRn  PFP3  <  OUTPUT= 1 2S , TflPE02 , TflPEOS , TflPEOQ , 

1  TAPE  1 2 ,  TflPEOS ,  TflPE6=0LITPUT ,  TflPE2=TflPE02 , 

2  TftPES=TRPED8 . TflPE9=TRPED9 , TRPE3=TflPE03 ) 

C 

C     XV2  POTENTIAL  FLOW  PROGRAM  UERSION  1   SECTION  3 

C     SOLUES  nflTRIX  EQURTION  FOR  SOURCE  DENS  I  TV 

C 

COfinON    SN  ( 654  > .  U 1 P  ( 650  > ,  S  (  5 ,  650  > ,  PROB  v  1 5  > ,  WS  ( 220  > ,  DM  <  550  > , 

1        B  i 220  > , COEF  K 900  > , XN ( 650 ) , VN ( 650  > , ZrK  650  > 

EQIJ I  UflLENCE  (  US  <  2  1 5  > ,  EPS  )  ,  (  K"K ,  B  C  201)) 

EQU I URLEHCE  <  M I X  ,  WS  ( 205  )  ) ,  (  M I V ,  IJS  ( 206  > ) ,  ( M I Z .  US  <  207  )  ) 

EQU I URLEHCE  ( US ( 20 1 > . W ) . ( US ( 20S  > , I  PS ) , ( US ( 2 1 2  > . I PF  > . ( US (211), KM ) . 

KKM.MK) 
5  F0RnRT(49H1XVZ  POTENTIAL  FLOU  PROGRRM  SECTION  3,  UERSION  4   ) 

URITE  (6,5) 

READ     (03)(PR0B<I>J  =  1  J5> 

UR I TE  (6,  100 1  )(PR0B< !  )  J  =  1 J5 ) 

1001  FORMATS  1 HO, 15A4) 

READ  (03 )  <US( I ) . I  =  1 , 220 ) , I  ED ! T3 , I  ED ! T4 

READ     (OSXSKIP. SKIP, SKIP, XN(I  ).Vri(i  ).ZN(  I  >.SKIP,  1  =  1. HP) 

D=-.5/3. 14159265 

RERD     (03)(Dr!<!  ),  l  =  1,NF) 

K1=1 

K2=NP 
240  FORMAT  ( 1SH0CHAHGES  IN  PROB  -J5R4) 

I F( IPS)  1220, 1220^ 1231 
1231  RERD     (12)(  B<K),K=1,  15) 

URITE  (  6,240)(.B(K),K=1,15) 

RERD     <12)<  B<K>,K=  1,220) 

RERD     (12)SKIP 

RERD     (12)SKIP 

K 1=1  PS 

K2= I PF 
C      A.   SET  CONDITIONS  FOR  FLOU  OF  - 1  IN  X  DIRECTION 
1220  FX=-1 

FV=0 

FZ=0 

NF=-1 
C      B.   COMPUTE  iNITIRL  RPPROX I MRT I  ON  TO  THE  SOURCE 
1240  DO  1250  K=1,NP 

U 1 P  K K  )=XN  <  K  )*FX+VN ( K )+FV+ZH \ K )*FZ-DM ( K ) 

S'::5,K)=-UiP(K)+.  11936 
C      C.   SET  PflRTIRL  SUM  UECTOR  TO  ZERO 
1250  SH(K)=0. 

SN<NP+1)=0, 

SN(NP+2)=0. 

SN':NP+3)=0. 

SH(NP+4)=0. 

URITE (6, 997)  FX,FV,FZ 

URITE  (6,998) 
998  FORMAT  <  27H0 1 TERRT ! ON   SUM  OF  CHANGES  , 9X . 1 HR , 1 0X , 2HB 1 , 1 0X . 2HB2 ) 

IT=1 

I  C=5 

IF  (IPS)  1260, 1260^  1255 

1255  RERD(12)  (S(5,K),  K.=  1,KK) 
DO  1256  K=1,KK' 

DO  1256  1=1,4 

1256  S(I,K)=S(5,K) 

C      D.  STRRT  ITERATION 
1260  BRHD=0 


0 


1261 

1262 

1263 
1264 


55 
67 

68 

69 
70 


1290 

91 

92 

93 
94 
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IF   (NF)1261. 1262, 1263 

RERD   (02>IDW,C0EF 

GO  TO    1264 

RERD   <08>1DW,C0EF 

GO  TO    1264 

RERD   (09>IDU,C0EF 

J=0 

D.  RERD  FIRST  BLOCK  OF  COEF 

E.  STRRT  LOOP  OUER  OURDS . 
DO  1290  K=1.NP 

F.  PiCK  UP  SOURCE  DEHSiTV 
SP=S(IC,K) 

G.  STRRT  LOOP  OUER  HULL  PTS. 
DO  1290  KP=1,NP,5 
IF<;j-900>80,65,65 

IF  <NF)57,6S,69 

READ  (02)1DU.C0EF 

GO  TO  70 

READ   (08>IDU,C0EF 

GO  TO  70 

RERD   (09>IDtl,C:0::!^ 

J=0 

H.  COMPUTE  PRRTifiL  SUM  FOR  NEXT  5  PTS 
Sri  ( KP  )=m  (.  KP  >+COEF  (  J+  1  >*SP 
£N<KP+  1  )=SN';KP+  1  ;+C0EFU+2  ;+SP 
Sh(KP+2  >=SH(KP+2  >+COEF( J+3  >+SP 
SH(KP+3 )=Sh(KP+3  >+COEF( J+4  >*SP 
StKKP+4  )=£N'::KP+4  >+C0EF<  J+S  )+SP 
J=J+5 

J.  END  OF  LOOP  OUER  NULL  PTS. 

K.   END  OF  LOOP  OUER  OURDS. 
CONT 1 NUE 

L.  COMPUTE  NEU  SOURCE 
IF  <HF>  91.92,93 
REUIND  02 
GO  TO  94 
REWIND  08 
GO  TO  94 
REWIND  09 
PflSS= 1 . 0 
SUM=0 . 

DO  100  K=K1 ,K2 
SN<K)=(  SN(K>+UIP':K)  >*D 
TE£T=RBS<£N(K ;-S(l C ,  lO ) 
SUM=SUM+TEST 

IF  (TEST  .GT.  EPS)  PRSS=-1.0 
COriT  I NUE 


110 
120 


IF  (PASS  .EO.  1 

IF  CIT.GE.MIX) 

IF  (IEDIT3  .EQ. 

i  T= I T+ 1 

I C= I C- 1 

IF  (!C  .EQ.  0> 

DO  110  K=K1.K2 

S<IC,K>=SN<K> 

Sri(K)=0. 

GO  TO  1260 

R=0. 

B1=0. 

B2=0. 

Dft=0. 

D1=0. 


0>  GO  TO  ISO 

GO  TO  ISO 

n>  liRITE(6.99) 


GO  TO  120 


IT, SUM 
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D2=0. 

DO  140  K=  K1,K2 

DS9=2*S(1,K)-SN(K>-S(2,K> 

IF';D£Q  .GT.  0.  )  GO  TO  122 

R=fl+S';2,K>-Sa,K) 

Dfl=Dfl-DS9 

GO  TO  125 
122  fl  =fi  +S<1,K)-S(2,K) 

Dfl=Ofl+D£Q 
125  DS1=S<:4.K>-S<3,K> 

DS2=S(3,K)-S(2,K) 

DS3=DS1-DS2 

DSS=S<2.K>-S(1,K> 

DS5=DS2-DSS 

DS6=DS1-DSS 

DS4=DS2-S(1.K)+SH(K) 

DS7=DS3*DS4-DS5*DS6 

DS8=DS6*DS5-DS4*DS3 

IF<DS7  .GT.  0. >  GO  TO  128 

B  1=E:  1-DS 1+DS4+DS2+DS6 

D1=D1-DS? 

GO  TO  130 
128  B 1 =B 1 +DS 1 *DS4-DS2*DS6 

D1=D1+DS7 
130    iF    (OSS    .GT.    0.)     GO  TO    132 

82=82-03 1  ■•♦■■DS5+DS2*DS3 

D2=D2-DSS 

GO  TO  140 
132  B2=B2+DS 1*DS5-DS2*DS3 

D2=D2+DSS 
140  CONTINUE 

Fi=fl/DR 

B1=B1/D1 

82=82 /D2 

iF(!T     EQ.    6)     GO  TO    155 

flfi=fl-fiS 

fiR=flBS(flR) 

IF   (HH   .GT.    .02>  GO  TO    14S 

DO    145  K=K1.K2 

S  (  5 ,  K  ?=R*  ( Sfl  <  K  ?-S  ( 1 ,  fO  HS  ( 1 ,  K  :> 
145  SH<k>=G. 

WR!TEv6.6000> 
6000  F0RMRT>:2yXJ7HR  E.XTRflP0LRT  i  ON  > 

60  TO    160 
148  BB1=B1-BS1 

BB1=RBS(BB1) 

BB1=50.*BB1 

BB2=B2-BS2 

EB2=fiB£(BB2> 

BB2=50 . +BB2 

BBE=flBS(Bl>  +  RBS(B2> 

IF  <  (BBI  .GT.  BBB)   .OR.   ^BB2  .GT.  BBE >  )  GO  TO  155 

DO  150  K=K1,K2 

S(5.K>=S(2,k>+B1*(;S(1,K)-S(2,K):'+B2*<SN<K>-S(2,K>> 
150  SN<k>=0. 

WR!TE(6,7000) 
7000  F0RMRT(2QX, 17HB  EXTRRPQLRT i ON    ) 

GO  TO  160 
155  DO  158  K=K1,K2 

S<5,K)=SNaO 
158  SH(K)=0. 
160  IC=5 
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WRITE (6. 16 1)  ft,   B1,    B2 
161  F0RMfiT(29X,3E12.3> 
flS=fl 
BS1=B1 
BS2=B2 
GO  TO  1260 
180  WRITE (6, 99)  IT. SUM 

DO  182  K=K1,K2 
182  S':i.l<:)=SNCK) 

WRITE<03>  <:sa,K>,  K=1,NP> 
99  F0Rm7(4X,  13,E1S.5) 
0Q7  FGRMflT  (  13H0  X  UELOCITV=  ,F4  .  1 J5H    V  UEL0CiTV=,F4  .  1 
115H    Z  UEL0CITV=.F4.  1> 
IF(F2)14no, 1390, 1400 
C      P1   IF  THIS  WAS  NOT  LAST  FLOW,  SET  FOR  NEXT  FLOW 
1390  FZ=FV 
FV=FX 
FX=0 
M!X=MIV 

M;v=f;iz 

NF=NF+ 1 
GO  TO  1240 
1400  REWIND  03 
C      P2  RERD  !N  PFPS4  AMD  TRRNSFER  TO  IT 
STOP  3 
END 
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flPFENDtX  lU  -  XVZPF  SECTION  PF4 

PROGRflM  PFP4 ( OUTPUT , TflPE6=0UTPUT , TflPEOS , TflPE0 1 , TAPE  1 1 , 
1  TflPE3=TRPE03 , TAPE  1 =TflPE0 1 > 

C 

C    XVZ  POTENT  I RL  FL0';4  PROGRRfl  UERSIOH  1  SECTION  4 
C     COMPUTES  UELOCITIES  AND  PRESSURE  COEFFICIENTS  FOR 
C     POINTS  ON  THE  BOOV 
C 

COMMON    UX 1  ••■  650  > ,  UV 1  ( 650  > ,  UZ 1  <  650  > ,   UX2  ( 650  > ,  Wl  <  650  > ,  UZ2  <  650 ) 

1  ,  UX3  ( 650 ) ',  UV3  ( 650 )  ]  UZ3  ( 650  \  S 1  ( 650  > ',    S2  <  650  > ,  S3  <  650 ) 

2  ,   X';650),   V(650),   2<650),    T4(650),  T5c:650),  T6<650) 

3  ,  DM f 550; 

D I  MENS  I  on'  PROBC  15  ;•,  WS(220  > ,  CU  1  ( 1000  > .  CU2(:  1000  > .  CU3(  1000  > 
EOU I URLENCE  ( US ( 20 1 > , NP  > , ( US ( 2 1 1 ) , KM ) . ( WS ( 2 1 7 ) , UX I > , <  US <  2 1 8  > , UV I > , 
KWS';219),UZI  ),(WS<20S>JPS).(WS(212>JPF> 
EOU  i  URLENCE  <.  M 1 X .  US  ( 205  >  > ,  <  M I V ,  US  <  205 ) ) ,  <  M I Z ,  US  ( 207 ; ) 
5  FORMAT (49H0XVZ  POTENTIAL  FLOU  PROGRAM  SECTION  A,    UERSION  4   > 
WRITE  (6,5) 

RERD     (OSXPROB^D.NI,  15) 
100  FORMAT (1H  .  15R4> 

URITE  (  6,  lOOXPROBd  ).  1  =  1.  15) 

C      A.   READ  PARAMETERS  AND  SOURCE 

READ  (03 >  (USCn,  l  =  1,220:',  IEDIT3,  IEDIT4 

READ         <:d3)o:':i  ),va  ■),2'>:\  ),T4ti  >,T5';:i  )jt<\  >,SKiP,   i  =  i,np:-' 

READ  (03)  (DM (I >, l  =  1.NP> 


D=-.5/3.  l-i  155265 

READ   "         (03>(S1(I  )J  =  1,NP> 

RERD            <03.yS2(l  >J  =  1,NP> 

READ  (03)  (S3(i)J  =  1,NP) 
1—  1 

O—  1 

K1=1 

K2=NP 

IF(IPS)108, 108, 102 

102 

K1=IFS 
K2=IPF 

103 

BBR= 1 . 

B.      READ  FIRST  BLOCK  OF  COEF. 
1 TAPE=0 1 

READ   (01)  BB,CU1,CU2,CU3 
IF   (BB-BBR)  300,120,300 

120 

DO    125!=K1,K2 

UX1(I)=-1.0                  -S1(l)+T4(l) 

/D 

UV1(I)=                          -S1(I)*T5(I) 

/D 

UZ1(I)=                          -S1(I)*T6(I> 

/D 

UX2(I>=                          -S2(l)+T4(l) 

/D 

UV2<I)=-1.0                  -S2(I)*T5(I) 

/D 

UZ2(I)=                          -S2(l  )+T6(!  ) 

/D 

UX3(I)=                           -S3(l>+T4(i) 

/D 

W3(l  )=                          -S3(l  )+T5(l  ) 

/D 

125 

UZ3(I)=-1.0                  -S3(i)+T6(l) 

/D 

C      C.   SET  UP  LOOP  OUER  OURDS. 

JC=2 
C      D.  PICK  UP  SOURCE 
130  S1J=S1<J) 

S2J=S2(J) 

S3J=S5(J) 
C      E.   SET  UP  LOOP  OUER  HULL  PTS. 

DO  180  JP=K1,K2 
C      F.   COMPUTE  PARTIRL  SUM  FOR  3  COMPONENTS  OF  3  UELOCITIES 

UX  1  ( JP  )=UX  K  JP )+S 1 J*CU 1 ( JC ) 

UV 1 ( JP  )=UV 1 ( JP  )+S 1 J*CU 1 ( JC+ 1 ) 
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UZ  K  JP  :'=U2  K  JP  HS 1  J*CU  1 UC+2 ) 

UX2( JP  >=UX2< JP )+S2J+CU2(JC  > 

UV2( JP )=UV2( JP )+S2J*CU2( JC+ 1 > 

UZ2<  JP  )=UZ2>i  JP  )+S2J*  CU2<  JC.+2  ) 

UX3  ( JP  )=UX3  ( JP  )+S3  J*C:U3  (  JC  ) 

UV3<  JP  >=UV3(  JP  ;'+S3J*CU3(  JC+ 1 ) 

UZ3  ( JP  >=UZ3  <  JP  >+S3  J*C:U3  <  JC+2  ) 

JC=  !C+'^ 
C      G.   RERD  MORE  COEF .  IF  NEEDED. 

IF  <JC- 1000) 180. 135, 135 
135  JC=2 

IF<BBR-635.0)  140, 150 J 55 
140  RERD  <01>  BB,C:U1,CU2,C:U3 

GO  TO  160 
150  REWIND  01 

155  RERD  cm  BB,CU1,CU2,CU3 
160  BBR=BBR+ 1 . 

IF  <BBR-BB>  300, 180,300 
C      H.   END  OF  LOOP  OUER  NULL  PTS. 
180  CONTINUE 

J=J+ 1 
C      I .  END  OF  LOOP  OUER  QURDS . 

IF<J-NP>130. 130,200 
200  I F  <  BBR-635 . 0  >  23 1 . 23 1 , 232 

231  REWIND  01 
GO  TO  233 

232  REIJIND    11 

C      K.   EDIT  THE  UELOCITIES  ETC.  AND  WRITE  THEN  ON  TRPE 

233  WR I TE  ( 03  >  <  UX 1(1), UV  K I  ) , UZ 1< I  )  , I  =  1 , NP  > 
WRITE  (03>(UX2<l),UV2a  >,UZ2a  )  J  =  1,Nr) 
UR I  TE     <  03  y  <  UX3  <  I  > ,  UV3  (I  > ,  UZ3  (I  .)       J  =  1 .  NP  > 

235  FORHRTaHl,  15fl4,8H  PAGE  =,,115? 

REUiND  03 

IP=K1+49 

I  S=K  1 

I PflGE=  1 

IF  (IEDIT4  .ED.  1)  GO  TO  293 

IF  <;riLX  .LE.O  >  GO  TO  265 
242  F0RNhT<8H0  X  FLOII  > 
240  FnRmT(4H  PT.  ,  lOX,  1HX,9X,  1HV,9X,  1HZ,  13X  ,  2HUX,8X,  2H'..tV,  8X.  2HyZ  ,  10X 

1  SHflBS.U.  7X,2HCP.6X,6HS0URCE,4X.SHU  NORNRL) 
245  FOR'IflT  (  IX,  1 3  ,  4X ,  3F  10  .  5 ,  4X  ,  3F  10  . 5,  1F  13  . 5  ,  2F  1 1 . 5 ,  E  12  .  2  > 
250  IF<IP-K2)255,255,260 
C      J.   COMPUTE  PRESSURE  RND  RBS.  URLUE  OF  UELOCITV 
255  IJR 1  TE  <  6 ,  235 ') '.  PROB  (I  > ,  t  =  1 ,  1 5  > ,  I PRGE 

WRITE  (6.242..' 

WRITE  ■:6',240> 

DO  25?  1=1 S, IP 

USO=UX  1  (  I  >+*2+UV  1  <  I  )*+2+UZ  1  (.  I  )**2 

Uf1=(fiBS(UX1(l  )>+RBS(UVKI  >>+RBS(UZ1(l  >>>*.79 

uri=uri+uso,.''UM 

UN=.25+UM+US0/UM 

ijn      =.5*(uri+uso/uri) 

CP         = 1 . -USQ 

UNR    =UX 1 ( I >+T4< I )   +UV 1 < I >*T5< I >   +UZ  1  ( I >*T6< I > 
257  UR  I  TE  (6, 245  >   I ,  X(l  >,  V(  I  ) ,  Z(  !>,  UX  1  (  I  ),  UV  1  ( 1  ),  UZ  1(  1  >,  UM 
1    . CP    , S  1( I  ) . UNR 
I S= I S+50 
I P= I P+50 
I PRGE= I PflGE+ 1 
IF(K2-IS>  265,260,250 
260  !P=K2 
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GO  TO  255 
265  IP=K1+49 

IF  ailV  .LE.O  )  GO  TO  280 
257  I F  < I P-K2 )275 , 275 . 270 
270  IP=K2 
275  WRITE  <6,235)<PR0B<I  >,  1  =  1,  15>,  I  PAGE 

WRITE  (6,277) 

277  FORMRTCSHO  V  FLOW > 
WRITE  < 6,240 > 
DO  278    l  =  ISJP 

USQ=UX2<;  I  )+*2+UV2< !  )++2  +UZ2c;  i  )++2 

Uf1=(ftBS<UX2<  t  )>+ftBc(UV2<  I  >>+flBS<U22<  t  >)>*.7y 
UM=UM+USO/Uri 
UM=.25+UM+USQ,'"UM 

km       =.5*(un+usQ/UM) 

UNR    ='...1X2  C I  )*T4(  I  )   +UV2c:  I  )*T5(  I  >   +UZ2(  I  )+T6(  1  > 
CP    = 1 . -USO 

278  UR  i  TE  <  6 , 245  >  I ,  X  <  i ) ,  V  < I > , Z  < I > , UX2 (I > , UV2 ( I  > , UZ2 ( I  ) , UM 
1    ,CP    ,£2(1), UNR 

I S= I S+50 

IP=IP+50 

I PfiGE= I PflGE+ 1 

lF(!S-K2>267,267,2Su 
2S0    IF=K1+4Q 

IS=K1 

IF  (MIZ  .LE.O  )  GO  TO  293 
282  I F ( I P-K2  )290 , 2Q0 , 285 
285  1P=K2 

290  WR i TE  ( 6 , 235 ) ( PROB ( I) . I  =  1 J 5 > J PRGE 
WRITE  (6. 292) 

292  FORriRT(oHC  Z  FLOW) 
WRITE  (5,240) 
DO  291  !  =  ISJP 

US0=UX3( I )++2+yV3( I )**2+UZ3( I )++2 
Uri=(flB£(UX3(  I  )  )+flB£(UV3(  I  >  )+flBS(U23(  1  ) )  )*  .  79 
i..iM=tifi+ijSri/Mf-i 

ufi=.25*uri+usQ./uri 

UM    =.5*(UM+USQ,''UM) 

CP    =  1 . -USO 

UNR    =UX3( I )+T4( 1 )   +UV3< 1  )+T5( I )   +UZ3( I )*T6( I ) 

291  WRITE   (6.245)  I  ,X(  I  ),  V(  i  ),  Z(  I  ),UX3(  l),UV3(  i  )  ,UZ3(  I  ),UN 
1    ,CP   ■,  S3  (I),  UNR 

I S= I S+50 
I P= I P+50 
I PhGE= I PHGE+ 1 
IF(IS-K2)2S2,282,293 
C      L.   CHECK  FOR  fl  FOURTH  FLOW 

293  J  =  1 

294  UXI  =  WS(J) 
UVi  =  WS(J+20) 
UZl  =  WS(J+40) 

295  I F  <  UX I ++2+UV 1  +-t^2+UZ  I  *+2 )  400 .  400 ,  30 1 
301  !S=K1 

IP=K1+49 
320  IF  ( ! F-K2  )330  325  325 
C      N.   EDIT  THE  UELOCITV  fiND  PRESSURE  FOR  FOURTH  FLOW 
325  IP=K2 

330  WRITE  < 6 , 235 ) ( PROB ( 1  ) J  =  1 J 5 ) J PRGE 

WRITE  (6,315)UXi,UVI,UZI 

WRITE  (6/540) 

C      n.  CONFUTE  UELOCITV  RND  PRESSURE  FOR  FOURTH  FLOW 
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DO  333  l  =  iSJP 

I  r/.4   =-  < UX 1 +UX 1  <  I  >+UV  1 +UX2  <  !  >+U2 1  *UX3  <  I  >  > 

UV4   =-  <  UX I  *UV  1  <  I  )+UV  I  *i  .1V2  ( I  :)+UZ  I  *UV3  ( I  ) ) 

U24   =-  (  UX  I  *UZ  1  <  I  )+UV  I  *UZ2  <  I  )+UZ  I  *U23  CD) 

USQ=UX4   ++2+UV4   *+2+UZ4   **2 

Uri=(RBSc:UX4        >+flBS(UV4        >+flBS(UZ4        )>*.79 

UM=UM+USQ/Un 

uri=.25*UM+usq/uri 

UM         =.5*<Uri+U£Q/UM) 

CP         =   1.-<USQ>/<  UV I **2+U2 I **2+UX i *+2 > 
333  UR I TE       <  5 ,  345 )   ! ,  X  ( I  )  /v'  C I  > ,  Z  (  I) ,  UX4       ,  UV4       ,  UZ4       ,  Uri 

1  ,CP 

I S= I S+5D 

IP=IP+50 

I  PhC€=  I  PflC€+ 1 

IF<K2-IS?350,325,32D 
350  J  =  J+1 

GO  TO  294 
3 1 5  FOFir^RT  ( 1  QHCi     ONSET  FLOW ,    UX  I  = ,  F6 . 3 ,  2X ,  4HUV I  = ,  F6 .  3 ,  2X ,  4HUZ  i  = ,  F6 ,  3 ) 
340  FORMAT c;4H  PT . ,  10X,  IHX.QX,  IHV.QX,  1H2,  13X,2HUX,SX,2HUV,SX,2HUZ,  10X, 

1   5KRBS.U,    7X,2HCP:5 
345  FORilHT   aX.  i3,4X,3F1G.5,4X,3F1U.5JF13.5.  iFi1,5) 
400  CONTIHUE 

GO  TO  5000 
300  CONTINUE 

WRiTE   (5,310)    i TAPE , BBR . BB 
3 1 0  FORMflT   C 6H 1  TfiPE   J  2  J 7H ' OUT  OF  POSS I T  i  ON / 114, 6F6 . 1 > 
5000  CONTINUE 

STOP  4 

END 
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APPENDIX  U  -  XVZPF  SECT i ON  PF5 

PROGRAM  PFP5  <  I  NPLIT=  1 28 ,  OUTPUT=  1 28 ,  TflPEG3 ,  TfiPE04 , 
1TflPE5= I NPUT . TflPE6=0UTPUT, TflPE3=TflPE03, TfiPE4=TflPEn4 ) 
C 

C     XV2  POTENT  I flL  FLOW  PROGRAM  UERSION  4  SECTION  5 
C     COMPUTES  UELOCiTIES  AMD  PRESSURE  COEFFICIENTS  FOR 
C     OFF  BODY  POINTS 
C 

COMMON    B  <  24 1 > ,       XP  <  500  > . VP  <  500  > , ZP  < 500  > , UX 1 ( 500 ) , WS  <  220 ) 
1 , UV 1 <  500 ) , U2  K  500  > , UX2 ( 500  > , UV2 ( 500  > , UZ2 ( 500 ) , UX3 ( 500 ) , UV3  <  500 ) 
2 ,  UZ3  (  500 ) ,  UX  (  8 ) .,  U V  (.  8  > ,  U2  <  8  > ,  S 1  (  650 ) ,  S2  ( 550 ) ,  S3  C  550 ) ,  U  U  3  > ,  U2  ( 3  ) ,  U3 
3(3)  . PROS < 1 5  >  , XN ( 650 ) , VN ( 650  > , ZN ( 650 ) , TR  i 650  > , TX ( 650  > 
4,TS'(650).TZ(650) 
EQU I  UflLENCE  (  KM .  US  ( 2 1 1  >  > ,  (  KM .  MK  > ,  <  NP ,  US  'v  20 1 )  > ,  <  SVM ,  WS  <  2  1 0  >  > 
1 ,  (V2,  V3 ) .  (M ! X,  WS(205  ? ),  (M I V,  WS(205 ) ) .  (M ! Z ,  l>IS(2b? ) ) 
INTEGER  PAGE 
INTEGER  SVM 
5  FORMAT (49H0XVZ  POTENTIAL  FLOW  PROGRAM  SECTION  5,  UERSION  4  ) 
URITE  (6,5) 
C      A.   READ  INPUT 

READ ( 5 , 25 )  NOBP . 1  ED  i  T5 . I  READ 
C      A.   READ  THE  OFF  BGDV  POINTS 
NOB=NOBP 
DO  10  1=1. NOB 

READ(5, 26  )  XP( I  ) . VP( I ), ZP( I ) 
IF  (EOF (5)  .EO.  0.)  GO  TO  10 
N0BP= I - 1 

WRITE (6, 9)  NOBP, NOB 
9  FORMAT (1 HO J 5, 3  iH  OFF  BODY  POINTS  SPECIFIED  NOT  .13) 
GO  TO  11 

10  CONTINUE 

11  CONTINUE 

25  F0RMRT<3i4> 

26  F0RhAT(3F12.5) 
P=1. 

READ  (03)  (PROBd  ),  1  =  1,  15) 
UR ! TE  (6 . 90 )  (PROB( I) . I  =  1 . 15 ) 

90  FORMAT (1 HO. 18A4) 

14R I  TE  (  6 ,  9 1 )  NOBi^- ,  I  ED !  T5 ,  I  READ 

91  FORMAT (9H0N0BP  ='.14  /SH'  1EDIT5= ,  14/SK  IRERD  =J4) 
WRITE (6 ,92) 

92  FORMAT (17H0  OFF  BODY  POINTS  /  4H  FT.,  11X,  1HX,  12X,  VA\> ,  12X,  1HZ) 
WR I  TE(6, 93  )  (  I ,  XP(  I  )/,'P(  I  ),  ZP(  I  )  J  =  1 ,  NOBP  ) 

93  FORMAT ( 1 X , 1 3 . 2X , 3F 1 3 . 5 ) 

C      B.   READ  THE  PARAMETERS,  T  ARRAY  AND  SOURCE  FROM  TAPE  31 

READ  (03)  (WSd  ),  1  =  1,220) 

READ  (03 )  (TX(  1  ),  tY(  I  ),  TZ(  I  ),  XN(  I  )/,'N(  I  ),  ZN( !  ),  TA(  I),  I  =  1 ,  NP ) 

READ  (02)  SKIP 
C 

C  FORMERLY:  WS(220)  .EG.  2. 
C 

I F ( WS ( 220 )  . EQ .  5 . )  READ ( 03  )  SK  t  P 

READ  (03)  (S1(I)J  =  1,NF) 

READ  (03)  (S2(l  ), l  =  1,NP) 

READ  (03)  (S3(l  ),  l  =  r.NP) 
C      C.  READ  THE  FIRST  BLOCK  OF  THE  B  ARRAY 

READ  (04)  (B(l  ),  1  =  1,241) 

K=1 

J=1 

DO  100  1=1, NOBP 
C      D.  SET  THE  PARTIAL  UELOCITY  TO  THE  FREE  STREAM  UELOCITV 
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UX 1( 1  )=- 1 . 0 

WUI)=0. 

U21(l)=Ci. 

ux2<;i  )=o. 

UV2(l>=-1.Ci 
UX3<i>=0.0 
UV3<I)=0.0 
UZ3CI  )=-1.0 
100  UZ2<I >=0. 

290  IF<B(1>-P)29 1,295, 291 

291  UFMTE  <6,9£;>  B(1),P 

98  FQRMRT  C  29.HG  PO I  NTS  OUT  OF  ORDER  B<1)=.1F4,0,4H  P=.1F4.0) 
STOP 
C      E.  STRRT  LOOP  OUER  THE  QURDS. 

295  J=2 

C  F1     PICK  UP  OURD.     I  r-FORriRT  I  ON 

296  X1=B';J) 
V1=B<J+1> 
X2=E(J+2) 
V2=B'::j+3) 
X3=B<J+4> 
X4=B(J+5> 
V4=B<J+6> 
XC=TX'rK? 

vc=tV':k) 

ZC=TZ<K> 

fi  =TR(K) 

XX=B(J+7> 

VX=B(J+S) 

ZX=B(J+9> 

XV=B(J+in> 

VV=E(J+11> 

ZV=B(J+12> 
C      F2  COhPUTE  LENGTH  OF  SIDES  OF  OUfiD. 

D12=Sn2F(X1,X2,V1,V2,0.,0. ) 

D23=£q2F  (  X2 ,  X3 ,  V2  /.-'S ,  .  0 ,  .  0  ) 

D54=Sn2F ( X3 . X4 . V3 , V4 , . 0 , . 0  > 

D4 1  =SQ2F  ( X4 '.  X 1 '.  V4 ".  V 1 .  .  0 .  .  0  > 
C      F3  COMPUTE  SLOPE  OF  SIDES 

I F(X2-a3  >3n5 , 300 , 305 
300  CI 23=1. 

00  TO  310 
305  CM23=(V2-V3>/a2-X3> 

CI  23=0. 
S 10  IF < X3-X4  .>3 1 5 ,  3 1 1 ,  3 1 5 
311  CI34=1. 

GO  TO  320 
3 1 5  Cri34=  (  V4- V3  )  /  (.  X4-X3 ) 

C  i  34=0 . 

320  1F<X4-X 1)325, 32 1,325 

321  C!41=1. 
GO  TO  330 

325  Cn41  =  <V1-V4)/ai-X4> 
CI41=D. 

330  I F  <  X 1 -X2  >335 , 33 1 , 335 

331  CI  12=1. 
GO  TO  340 

335  CM  1 2=  <  V2-V 1  >  /  a2-X  1  > 
CI  12=0. 
C      F4  COMPUTE  OURDRRPOLE  MOMENTS 
340  CIXX=B(J+17) 
CIXV=B(J+1S> 


no 


341 


34: 


34= 


CIVV=B<J+1Q) 

F5  COMPUTE  SIH  AND  COS  OF  SLOPE  flHGLE  FOR  EACH  SI 
CV12=<V2-V1)/D12 
CV23='::V3-V2)/D23 
CV34=<V4-V3>/D34 
CV41=<V1-V4>/D41 
CX12=<X1-X2>/D12 
CX23=(X2-X3VD23 
CX34=':X3-X4)/D34 
CX41=<X4-X'!>/D41 

F5     COriPUTE  MhX  DIfiGINflL 
ST=SQ2F ( X 1 , X3 , V 1 , V3 , 0 . , 0 .  ) 
ST2=S02F ( X2 , X4 , V2 , V4 . . 0 , . 0  > 
IF(ST-ST2>341.342.342 
ST=£T2 

G.      STRRT   LOOP  OUER  THE  OFF  BODV  POINTS 
DO  530  jq=1,N0BP 
IS=1 

XCQ=XP(JO> 
VCO=VP(.JO) 
ZC0=2P(J0> 
J  1=1 
F;P0=SQ2F  <  XC .  XCO ,  VC ,  VCO ,  ZC ,  2C0  > 

H.      DETEPfllN  METHOD 
I F(RPQ-£T*4  >35G, 350, 460 

ZX 


DE 


U-i 


BV  EXHCT  METHOD 


1000 
1000 
1000 

1000 


350  X=  <  XCO-XC )*XX+ ( VCO- VC  >*VX+ ( zco-zc  >+ 

v=(xco-xc )+xv+(vcu-vc )*vv+( zco-zc )+ 

Z=  (.  XCO-XC  )*XN ( K  )+  ( VCO- VC  >* VH ( K  )+  <  ZC 

I F(RP0-ST*2 . 5  >355 . 355 , 400 
I.  COMPUTE  IMDUSED  UELOCIT 
355  R 1=S02F<X . X 1 , V, V 1 , Z . 0 .  > 

R2=S02F(X^X2".V/,'2,Z',0.  ) 

R3=S02FCX,X3.V,V3,Z,0. > 

R4=Sn2F<X.X4,V,V4,2,0.  > 

IF((R1+R2).LE.D12)     GO  TO 

iFaR3+R2>.LE.D23)     GO  TO 

!F(<R3+R4).LE.D34>     GO  TO 

IF(<R1+R4).LE.D41)     GO  TO 

CLfl  1 =RLOG <  <  R  UR2-0 1 2  > /  •; R 1 +R2+D 1 2  >  > 

CLR2=RL0G(  (R2+R3-D23  ::'/C.R2+R3+D23  )  ? 

CLfi3=HL0G( <R3+R4-D34  >/CR3+R4+D34  ;  > 

CLR4=PL0G( (R4+R 1-D4 1 >/<R4+R 1+D4 1 >  > 

TUX=CV 12+CLR 1+CV23*CLfi2+CV34+CLR3+CV4 1*CLh4 

TUV=CX 12+CLA 1+CX23+CLR2+CX34+CLfl3+CX4 1*CLfi4 

TUZ=0 . 

i  F ( RBS ( Z )- . 00 1 *ST  >375 , 35 1 
361  ZS0=Z++2 

E1=ZS0+<X-X1 >*+2 

E2=2£Q+<X-X2)**2 

E3=ZS0+<X-X3>**2 

E4=ZS0+(X-X4>++2 

H1=(V-V1)*c:x-X1) 

H3=<V-V3>+(X-X3) 
H4=<V-V4>*C(-X4> 
I  FCC  I  12)363,363.354 

363  US  1  =  ( CM  1 2+E  i -H 1 ) / C  Z+R 1 ) 
WS2=0:;M  12+E2-H2  >/<Z+R2  > 
flT1=fiTRN';ivlS1> 
flT2=RTRN<US2> 
TUZ=flT1-flT2 

364  I F ( C 1 25  >366 , 366 , 367 
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366  flT3=flTflNC  CCM23+E2-H2 )/(Z+R2 ) > 

PlT4=flTftH<  (CM2.3+E3-H3  >/(:2*R3  >  > 

TUZ=TU2+flT3-flT4 
357    I F<C 1 34)368, 363,359 
368  fiT5=ftTRH  ( ( Cri34*E3-H3  )  /  <  Z+R3  >  > 

fiT6=fiTflN(  (Cri34*E4-H4  >/(Z*Fl4  >  > 

TU2=TUZ+fiT5-HT6 
36Q  !F<C:I41>370,370,375 
270  flT7=flTflNC  <CM4  1+E4-H4  :V<Z*F:4  ) ) 

FlT8=fiTFlH<  ■;Cf14  1*E  1-H 1  >/(Z*R  1  >  > 

TUZ=TUZ+RT7-flTS 
375  GO  TO  450 

J.   COMPLITE  t HOUSED  UELOCITV-  BV  OUflDRRPOLE  METHOD 
400  RPQ3=Rpn++3 

RP07=';RP03**2>*RPQ 

WS1=  X/RPQ3 

XS0=X**2 

VS0=V*+2 

ZS0=Z**2 

PS=V£0+ZS0-4 . +XS0 

QS=XSQ+ZS0-4 .  *S'SC! 

WS2=X+(9 . *PS+30 . +XSQ  >/RPQ7 

WS3=3.*V*PS/RPQ7 

1454=3.  *X*0S/RPi;!7 

TUX=H*US 1-ci  XV*US3-C I XX+US2-C I VV*U£4 

WS1=V/RP03 

US2=V+(9 .  *QS+3G .  +VSri  )/Rpn7 

TUV=fl%'£  1-C  i  XX+WS3-C;  1 XV+US4-C I  VV*US2 

TUZ=Z+<fi/RPQ3-3 .  *<C  I XX+PS-5 .  *C  t  XV+X+V+C !  VV+OS  :'/RP07  > 
450  UX ( i  S  >=TUX+XX+TUV*XV+TUZ*XH  <  K  > 

UV<  I S  )=TUX+VX+TUV+VV+TU2+VN'::K  > 

UZC  !  S  :'=TUX+ZX+TUV+ZV+TUZ+ZrKK  > 

GO  TO  470 

K.   COhPUTE  i HOUSED  UELOCITV  BV  MOHOPOLE  HETHOD 
460  flRP03=R/(RP0*+3> 

UXc:  I S  )=  kXCQ-XC  >+RRP03 

UV<IS)=  (VC0-VC)+fiRP03 

UZ  (.  I S  >=  <  ZCQ-ZC  :>*hrpu3 

L.      REFLECT  OFF  BODV  POINT    IH  PLRHE   OF  SVMETRV 
470  GO  T0';48D,  485,450. 495^  1500, 505, 5  10. 5  15).  IS 

480  uiui)=uxa> 
u2<:ji  )=ux<i> 

U3<J1>=UX<1> 

UKJ1+1)=UV<1) 

U2<J1+1)=UV<1> 

U3(ji+n=uv(i) 

U1'::.J1+2>=UZ<  1) 
U2(J1+2)=UZ<n 

U3';ji+2)=uz(n 

iF(SVri>  525,525,481 

481  IS=2 

XZ  SVriETRV 
VCQ=-VCO 
GO  TO  345 

485  IF<SVri-i:;'517,517,486 

XV  SVnETRV 

486  IS=3 
ZCO=-ZCO 
GO  TO  345 

490  18=4 

VCQ=-VCO 
GO  TO  345 
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4Q5    IFtSVM-2)516.516,4Q6 
C  YZ  SVMETRV 

495    IS=5 

XCQ=-XCQ 

GO  TO  345 
500    IS=6 

VCO=-VCQ 

GO  TO  345 
505    IS=7 

ZCn=-ZCQ 

GO  TO  345 
510    IS=8 

YCO=-VC.O 

GO  TO  345 
C  M.      ADD  CONTRi BUT  IONS  OF  HLL  REFLECTIONS 

5 15  U  1  (J  1  >=U  1  (J  1  HUXCS HUXC? )+MYr5 HUXCS ) 
U2  ( J 1  )=U2  ( J 1  >-UX  ( S  )+UX  (  7  >+UX  (.  5  >-UX  ( 5  > 
U3  (.  J 1  >=U3  <  J 1  >-UX  <  8  >-UX  <  7  >+UX  <  6  >+UX  (  5 ) 

U  K'  J 1+  1)=U  1  <  J 1  + 1  )-UV  <  S  )+UV  (.  7  )+UV  ( 5  )-UV  <  5 : 
U2<  J 1+ 1  >=y2(  J 1+ 1  )+'.;V(8  )+UV(7  )+UV(6  )+i  A'C 
U3  c  J 1 + 1  )=U3  >;:  J 1  + 1  >+uv  >•;  S  )-UV  ( 7  >+UV  <  5  >-UV  ( 5  ) 
U  1(  J 1 +2  >=U  1(  J 1  +2  >-UZ  ( 8  :'-UZ  ( 7  )+'.}Z  ( 6  >+UZ  ( 5 ) 
<v'2  <  J 1  +2  >=U2 ''  J 1 +2  >+UZ  <  8  )-UZ  <  7  :)+UZ  v  6  >-UZ  <  5  > 
U3  ( J 1 +2  >=U3  <  J 1  +2  HUZ  ( 8  )+UZ  ( 7  HUZ  ( 5  >+UZ  ( 5 ') 

516  U  K  J  D=U  K  J 1  )+UX  C  4  )+UX  ( 3  > 
U2(J1  >=U2<J1  >+UX<4>-UX<3> 
U3  <  J 1  )=U3 ( J 1 >-UX ( 4  >-UX  <  3 ) 

U  KJ 1+ 1  )=U  1  <  J 1+ 1  )+UV<4  )-UV-::3 ) 
U2  ■:  J 1  + 1  >=U2  ( J 1  + 1  >+U'V  <  4  >+UV  ( 3  > 
U3( J 1+ 1 >=U3< J 1+ 1 >-UV(4  >+UV(3  > 
U 1  (J  1+2  >=V  1  <J  1+2  >-UZ';:4  ::-uz<3 ) 
U2  ( J 1 +2  :'=U2  ( J 1  +2  )-UZ  (  4  ?+UZ  C  3  ? 
U3 ( J 1 +2  )=U3 ( J 1 +2  >+UZ ( 4  )+UZ ( 3 ) 

517  U 1  -::  J 1  >=U  1  <:  J 1  >+UX  <  2  > 
U2<Jn=U2<J1>-UX(2> 

U3<:ji>=u3c:ji)+ux<:2) 

U1<J1+1>=U1(J1+1M'V(2) 
U2 ( J 1  + 1  )=U2 ( J 1 + 1 >+UV ( 2  > 
U3  <  J 1 + 1 >=U3 ( J 1 + 1 >-UV  <  2  > 
UKJ1+2>=UK.J1+2)+UZ(2) 
U2«:  J 1+2  ";=U2(  J 1+2  )-UZc2  ) 
U3  <  J 1  +2  >=U3  (.  J 1  +2  >+UZ  <  2  > 
525  L=P 

UX  UJO  >=UX  1  <  JO  >+U  1  <  1  >+S  KL) 

vv  1  f-  jQ  >=uv  1  <  JO  >+u  1  ( 2  ;j+s  1<  L  ) 

UZ 1  <  JQ  >=UZ  1  ( JQ  :.+U  1  ( 3  >+S  1  ( L  > 

UX2< JQ  >=UX2( JQ  )+U2< 1  )+S2<L  ) 

UV2 ( JO  )=UV2 ( JO  >+U2 ( 2 )+S2 ( L  > 

UZ2  -;  JQ  )=UZ2  ( JQ  >+U2  ( 3  )*S2  C  L  ) 

UX3(  JQ  >=UX3(  JO  >+U3(  1  )*S3<:L  ) 

UV3  <  JQ  >=UV3  < JQ  >+U3 ( 2  >*S3 ( L ) 

UZ3< JQ  )=UZ3( JQ )+U3<3 )+S3<L ) 
530  CONTINUE 
C      N.  END  OF  LOOP  OUER  OFF  BODS-'  POINTS 
585  P=P+1 

K=K+  1 

J=J+20 

IF(K-NP      >586,586,599 
536   I F ( J-24 1 )2Q5 , 590 , 590 
C  0.      REfiD  NEXT  BLOCK  OF  B  flRRflV    IF  NEEDED 

590  RERD   (04)      <B< ! >, 1=1 .241 > 

J=2 
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!F(Ba)-P)2Q1,2Q6,2Q1 
C  P.      END  OF  LOOP  OUER  QUADS 

599  CONTmUE 
PAGE  =    1 

IF   (IEDIT5    .EO.    1>  GO  TO  S25 
601   F0RmT(4H  PT. ,  11X,  1HX,  12.X,  1HV.  12X.  1H2.  14X.2HUX.  1 1X,2HUV,  1 1X,2HUZ 

1,  14X,2HCP> 
502  F0RmT(7H  X  FLOW) 

603  FORMFiKTH  V  FLOU) 

604  FORMAT (?H  Z  FLOW) 

605  F0F:MHTaH1J5fl4J0XJ5HDFF  BODV  POINTS  J0X,5HPhGE   J3> 
IF   ailX.EO.O)     GO  TO  700 

WRITEr:6.505)  PROB,PfiGE 

WRITE  (6,602) 

WRITE  <6.601> 

L I  riE=  1 

LRST=53 

606  IF(H0BP-LflST)607,610,610 

607  LfiST=M0BP 

610  00  615    l=LIHE,LRST 

6 1 1  FORriMT(  IX  ,113, 2X .  3F  13 . 5 ,  2X  ,  3F  13 . 5 ,  3X .  F  13 . 5  ) 

C      Q.  COnPUTE  PRESSURE  AND  EDIT  3  BASIC  FLOWS 

CP 1=  1 . -<UX 1 < I >**2+UV 1 < I >**2+U2 1 < ! )**2 ) 
6 15  WR I TE  (6.611)1.  XP(  I  ) ,  VP(  I  ) ,  ZP(  I  ),  UX  1  ( !  ),  UV 1  ( I  ),  UZ 1  (  I  ) .  CP  1 

L  i  HE=LflST+  1 

LAST=L I NE+54 

PAGE=PAGE+  1 

I F(L I NE-NOBP  >620 , 620, 700 
620  WR I TE ( 6 , 605 )  PROS , PROE 

WRITE  (6,601) 

GO  TO  606 
700  IF  (MIV.EQ.O)  GO  TO  SDC 

WRITE (6, 605)  PRQB.PRGE 

WRITE  (6.603) 

WRITE  (6>.01) 

L I  HE=  1 

LAST=55 

706  1 F ( NOBP-LRST )707 .710.710 

707  LAST=H0BP 

710  DO  715  l=LINE.LflST 

CP2=1.-(UX2(1 )*+2+UV2(l )*+2+U22(l )++2) 
7 15  WR  i  TE  (6,611)  I  ,  XP(  I  ) ,  S^P(  I  ) ,  ZP(  I  ) ,  UX2(  I  ) ,  UV2(  I  ),  UZ2(  I  ) ,  CP2 

L I NE=LAsf + 1 

LAST=L I HE+54 

PAGE=PhGE+ 1 

I F(L i HE-NOBP )720, 720, 800 
720  WRITE (6, 605)  PROB,PfiGE 

WRITE  (6,601) 

GO  TO  706 
800  IF  (fUZ.EO.O)  GO  TO  825 

WRITE (6, 605)  PROB,PRGE 

WRITE  (6,604) 

WRITE  (6,601) 

LIHE=1 

LAST=55 

806  I F ( MOBP-LflST )807 ,810,810 

807  LRST=NOBP 

810  DO  815  I =L I  HE, LAST 

CP3=  1 . -(UX3( I )**2+UV3( I )**2+U23( I )**2 ) 
815  WR 1 TE  (6.611)  I , XP( I  ) . VP( I  ) , ZP( I  ), UX3( I ) , UV3( I ) , UZ3( I ) , CP3 

L!ME=LRST+1 

LAST=LINE+54 
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PflGE=PFlGE+ 1 

I F  <  L I NE-NOBP )820 . 820 , 825 
820  WFilTE<es505>  PROB,PflGE 
URITE   (6,601) 
GO  TO  806 

825  J  =  1 

826  IF  <IREflD.EQ.O>  GO  TO  827 
RERD(5,26)  UX4,UV4,UZ4 

IF  (EOFcSj.NE.  0.)  GO  TO  QOO 
GO  TO  828 

827  UX4=WS<J) 

UV4  =  IJSc:.J+20) 
UZ4  =  WS(J+40;) 

828  CP=UX4**2+UV4*+2+UZ4**2 
I F<CP -'900,900, 830 

C      R.   COMPUTE  FOURTH  FLOW  AND  EDIT  IT 

830  LINE=1 
LflST=5 1 

WRITE (5, 605)  PROB^PRGE 

831  FORrifiTdynGCrtSET  FLOW  UX  =,F7.3,/15X,4HUV  =, 
1F7.3/15X.4HUZ  =,F7.3) 

WRITE  (6,831)  UX4.UV4,UZ4 

WRITE   (6,601) 
835    I  F(riOBP-LRST  )S37, 840, 840 
S3?  LfiST=NOBP 
840  DO  845    l=LmE,LRST 

UXP=-UX4+UX 1 ( ! )-UV4+UX2( I )-UZ4+UX3( I ) 

UVP=-UX4+UV U  i  )-UV4*UV2( I  )-UZ4+UV3( I ) 

UZP=-UX4*UZ 1( I )-UV4*UZ2( ! )-UZ4*UZ3( I ) 

CP4=    1 .  -  ( UXP*+2+UVP**2+l.'ZP*+2 )  ..''CP 
845  WRITE   (6.611)    I ,  XP  ( I  ) ,  VF'  ( I  ) .  ZP  ( i) ,  UXP ,  U  VP ,  UZP .  CP4 

L I ME=LRST+ 1 

LRST=L ! NE+54 

PROE=PFiGE+  1 

i  F ( L  i  NE-NOBP )850 , 850 ,  860 
850  WRITE (6, 605)  PROB,PRGE 

WRITE  (6,601) 

GO  TO  835 
860  .J  =  J+1 

GO  TO  825 

1 000  WR I  TE  ( 6  ,  1 00 1 )  JO .  L  .  XP  (  JO  ) ,  VP  ( JO  ) .  ZP  (  JO  ) 

1001  F0P>MflT(16H00PF  BOOV  POINT   .  I3,23H  ON  BOUNDRRV  OF  QUfiD    ,13/ 
1      3H  X=,F12.5,5X,2HV=,F12.5,5X,2HZ=,F12.5) 

GO  TO  530 
900  CONTINUE 
C      S.  REWIND  TAPES  RND  STOP 
REWIND  03 
REWIND  04 
STOP  5 
END 

FUNCT  i  Or^  S02F  (XI,  X2 ,  V 1 ,  V2 ,  Z 1 ,  Z2 ) 
X=X1-X2 
V=V1-V2 
2=Z1-Z2 

[:;S=Z++2+V++2+X**2 
R=RBS ( X  )+RBS ( V )+RBS ( Z )+  1 . OE-20 
R=R+RS/R 
R=.25*R+RS/R 
R=  R+RS,.'R 
£02F=  .25*F;+RS/R 
RETURN 
END 
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ftPPENDlX  Ul  -  XVZPF  SECTIOM  PF6 

PROGRFIM  PFP6(  I NPLIT=  123, TAPE  16, 0L1TPLIT=  128,  TflPEOS,  TflPECi4, 
1  TflPE5= 1 NPUT , TflPE6=0UTPUT , TflPE3=TRPE03 , TflPE4=TflPEa4  > 

C 

C     XVZ  POTEHTIflL  FLOU  PROGRRn  UERSiON  4  SECTION  5 

C     COMPUTES  UELOCITIES  flHD  PRESSURE  COEFFICIENTS  FOR 

C     OFF  BODV  STREAMLINES 

C 

COMMON   XP  (  1 00  > ,  VP  <  1 00  > ,  ZP  ( 1 00  ) ,  UX 1  (  1 00  > ,  US  (.  220  > 
1 ,  UV 1  ( 1 00 ) ,  UZ  K  1 00 ) ,  UX2  ( 1 00 ) ,  UV2  ( 1 00 ) ,  UZ2  ( 1  GO  >  ^  UX3  ( 1 00  > ,  UV3  ( 1 00 ) 
2,UZ3<100),UX<8),UV(8).UZ(8).Slc:650),S2<650>,S3<650).Ulc:3>.U2<3),U3 
3 ( 3  y   ,  PRDB  (15)  ,  XN ( 650 ) ,  VN  <  650  > ,  Zti  ( 650  > ,  TX  <  650  > ,  TV <.  650  ) ,  TZ  <  650 ) 
1,B(  13000),      XT(100>,VT<100>,ZT(10b).flP<5>.GM(4),SKV(100), 
1  SKZ<  100 >, SKX<  100 > , DX<  100 > . DVC 100 > , DZ-:!  100 > , CP<  100 )  , TH<65n > 
EQU !  URLENCE  (  KM ,  US  C  2 1  n  ? .  <  KM .  MK  ) ,  (  NF ,  US  C  20 1  ?  ? ,  C  S'/M ,  US  ( 2  1 0  )  ? 
1.«:V2.V3> 
INTEGER  SVM  ,P 

C      fl.  RERD  INPUT 
WRITE  (6,5) 

6  F0RMftT(3l4.4F12.5; 
8  F0RriHT(3F12.5) 

5  F0RMfiT';:49HnxVZ  POTENTIAL  FLOW  PROGRAM  SECTION  6,    UERSION  4      > 

7  FORMAT  <1X,9F12.5) 

20  F0RMATC1H1. i4.31H  STREAMLINES  TO  BE  COMPUTED  AT   .i4.10H  STEPS  OF 
1   ,F8.4,28H  T  FOR  AN  ONSET  UELOCITV  OF   ,3F3.4> 

21  FORMAT (IX,  ISHSTRRTiNG  P0liiTS/,3X,2HPT,5X,  1HX,  11X,  1HV,  11X,  1HZ) 

22  F0FiMAT<1X,  14,3F12.5) 

READ  (03)  (PROBd  >,  1  =  1.  15) 

WRITE  (6.90)  (PROBCI  ), 1  =  1,15) 
90  FORMAT (1 HO. 15A4) 
C      B.   READ  THE  PARAMETERS.  T  ARRAY  AND  SOURCE  FROM  TAPE  31 

READ  <03)  (WSd  ),  1  =  1,220) 

READ(03)  (TXa  >.TV(I  ),TZ<I  >,XN(I  >,VN<i  ),ZN<i  >,TA(I  ),  l  =  1.NP> 

READ  (03)  SKIP 

IF  (  WS(220)  .EO.  2.   )  RE AD (03)  SKIP 

READ  (03)  (SKI  ),  l  =  1.NP) 

RERD  (03)  (S2(l  ), l  =  1^NP) 

RERD  (03)  (S3 (I  ),  l  =  1.NP) 
C      C.   READ  THE  B  ARRRV 

WZ  =  NP 

WZ=(WZ+ 11.0)/ 12.0 

NB  =  WZ 

IS  =  2 

IF=241 

DO  12  IP  =  1.HB 

READ  (04)  P,  (B(l ), l=IS, IF) 

IS=IS+240 
12  IF=lF+240 

ftP(1)=  .5 

AP(2)  =  .5 

RP(3)  =  1. 

flP(4)=0. 

fip(5)=0. 

GM(1)  =  1./6. 

GM(2)  =  1./3. 

GM(5)  =  1./3. 
83  READ  (5.6 )  NOBP , NST , I  END , DT , UX I , UV I , UZ ! 

USO=UX I *+2+UV I **2+UZ I **2 

HOB=NOBP 

DO    10    1=1, NOB 

READ(5,   8)     XP(I),VP(I),ZP(I) 
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IF  (E0F(5)  .EQ.  0.)  GO  TO  10 
H0BP= I  - 1 

WRITE (6,9)  N0BP,N0B 
9  FORMflT (1 HO . 1 5 ,   28H  STREflML I NES  SPEC  I F I  ED  NOT  J  3 ) 
GO  TO  11 

10  CONTINUE 

11  CONTINUE 

WR I TE  < 1 6  >  NOBP , NST  J  END . UX I . UV I , UZ I 

UR I TE  C  6 , 20  >  NOBP , NST , DT , UX I , UV 1 , UZ  t 

WRITE<6,21> 

WR I TE(5, 22 )  <  I , XP(  I  >,  VP<  I  ), ZP-:  I  >,  1  =  1,  NOBP > 
C     NOBP  -  NUMBER  OF  STREflML I NES  TO  BE  TRACED. 
C     NST  -  NUMBER  OF  STRTIONS  AT  WHICH  STRERMLINES  SHOULD  BE  COMPUTED. 

DO    15    1=1, NOBP 

XT(I>  =  XP(I> 

VT< I >  =  VP( I  ) 

ZT<I  >  =  ZPd  > 

SKXd  >=0. 

SK'VU)  =  0. 
15  Sk'Zd  >  =  0. 

I  TC=0 

IRK=5 
Q8  K=1 

P  =    1 

J=1 

DO  100  1=1, NOBP 
C      D.   SET  THE  PflRTIflL  UELOCITV  TO  THE  FREE  STREAM  UELOCITV 

UX  K I >=- 1 . 0 

VV 1  ( I  )=0 . 

UZ  K I >=0 . 

ux2<i  :)=o. 

W2<:i>=-1.n 

ux3':i  >=o.o 

UV3(l  >=0.0 
UZ3<I.':'=-1.0 

100  uz2a  )=o. 

C      E.   STRRT  LOOP  OUER  THE  OUflDS . 

295  J=2 

C      F1  PICK  UP  QURD.  INFORMATION 

296  X1=BC.J? 
V1=E<J+1) 
X2=B<J+2> 
V2=B(J+3> 
X3=B<J+4) 
X4=E<J+5> 
V4=B(J+6) 
XC=TX(K;' 
VC=TV<K) 
ZC-TZtK) 
A  =TR'::K> 
XX=B<J+7) 
VX=B(U+8> 
ZX=B<J+9) 
XV=B(J+10> 
VV=B<J+11> 
ZV=B0J+12) 

C      F2  COMPUTE  LENGTH  OF  SIDES  OF  QUAD. 

D 12=S02F ( X 1 , X2 . V 1 , V2 , 0 . , 0 .  > 

D23=SQ2F  ■:  X2 .  X3 ,  V2 ,  V3  ^  0 ,  .  0  .> 

D34=SQ2F  ■::  X3 ,  X4 ,  V3 ,  V4 ,  .  0 ,  .  0  > 

04  1  =S02F  <  X4 ',  X 1 .  V4 .  V 1  ^  .  0 .  .  0  > 
C      F3  COMPUTE  SLOPE  OF  SIDES 
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iFCX2-X3)305, 

300 

305 

300 

CI23=1. 
GO  TO  310 

305 

Cf123=(V2-V3)/<X2- 

-X3.^' 

C 123=0. 

310 

IF(X3-X4>315, 

311. 

315 

311 

C 1 34=  1 . 
GO  TO  320 

315 

CM34=<SM-V3>, 
CI  34=0. 

■XX4- 

-X3 ) 

320 

IF<X4-X1)325, 

321, 

325 

321 

CI41=1. 

325 

330 
331 

335 


540 


GO  TO  330 

C:ri41=(V1-V4;'/<X1-X4) 
CI41=0. 

!F(X1-X2>335,331.335 
C 112=1. 
GO  TO  340 

i::ri12=(V2-V1)/(.X2-X1) 
CI  12=0. 

F4     COriPUTE  OLIRDRflPOLE  noriEHTS 
CIXX=B(J+1?> 
CIXV=B<J+18> 
CtVV=B<J+19:' 

F5  COMPUTE  SIN  AND  COS  OF  SLOPE  fir^GLE  FOR  EACH  SIDE 
CV12=<;V2-V1>/D12 
CV23=(V3-V2)/D23 
CV34='-;V4-V3>/D34 
CV41=<V1-V4>/D41 
CX12=c:X1-.X2.\.'D12 
CX23='::X2-X3>/li23 
CX34=(X3-X4)/D34 
CX41=C':4-X1>/D41 

F5  COMPUTE  MRX  DiRGINRL 
ST=Sn2F<X1,X3,V1,V3,0.,0. > 
ST2=S02F  (.  X2 ,  X4 ,  V2 ,  V4 ,  .  0 ,  .  0 ) 
!F<ST-ST2:^34  1,342,  342 
ST=ST2 

G.  STRRT  LOOP  GoER  THE  OFF  BODV  POINTS 
DO  530  .JQ=1,H0BP 
iS=1 

XC0=XP<.J0> 
VCQ=VP(JQ) 

zco=zpc:jq:j 
J  1=1 

345  Rpn=Sn2F  <  XC . XCQ . VC . VCQ , ZC , ZCu  > 
H.   OETERMIN  METHOD 
I  F(RFq-ST*4  :'350,  350 ,  460 

350  X=  ( XCO-XC  >*XX+  >:  VCQ- VC  )+VX+  ( zco-zc  :-+zx 
V=<XCQ-XC  >*xv+<vco-vc )+vv+czcn-zc  >*zv 
z=aco-xc  >+xN':k  )+(vco-vc  >+vrKK  )+czcq-zc  >+zrKK  > 

I F<RPG-ST*2 . 5 )355 . 355, 400 

I.   compute  IMDOsED  UELOCiTV  BV  EXRCT  METHOD 
355  R1=SQ2F(X,X1,V,V1,Z,D. > 
R2=S02F<X,X2,V,V2.Z,0. ) 
R3=SQ2F<X.X3,V,V3,Z,0. ) 
R4=SG:2F(X,X4,V.V4.Z.O.  ) 
CLR 1  =RLOG  <:  ( R 1 +R2-D 1 2  > ,/  ( R 1 +R2+D 1 2  >  > 
CLfl2=RL0G(  '.:R2+R3-D23  .\.'(R2+R3+D23  .■> ) 
CLfl3=flL0G<  CR3+R4-D34  ;/';;R3+R4+D34  ')  > 
CLR4=ftL0G(  (R4+R  1-D4  1  >/<R4-!-R  1+D4  1  >  ) 
TUX=CV  12*CLfl  1+CV23*CLfl2+CV34*CLfi3-t-CV4 1*CLR4 


541 


342 


J51 


363 


366 


367 

368 


369 
370 


400 


450 


460 


470 
4S0 


TUV=CX 12*CLfi 1+CX23+CLfl2+CX34+CLfl3+CX4 1*CLR4 

TUZ=0 . 

i  F(flES(Z )- . 00 1*ST )375, 36 1 , 36 1 

ZS0=Z++2 

E1=ZSC!+<X-X1)**2 

E2=ZSQ+<X-X2>*+2 

E3=ZSQ+<X-X3>**2 

E4=ZSC!+(X-X4?**2 

H1  =  CV-V1)*a-XD 

H2=<V-V2)*<X-X2> 

H3=<V-V3)+(A-X3) 

H4=<V-V4)+C<-X4> 

IF(C1 12)363,363,364 

NS1=(Cf112+E1-H1)/(Z*R1> 

WS2=  <  CM  1 2*E2-H2  > / <  Z*R2  > 

FiT1=RTRri(US1) 

flT2=flTflN<US2) 

TUZ=flT1-flT2 

I  FCC  123)366, 366, 367 

flT3=RTflH<  a:M23+E2-H2  ),/';Z*R2  ) ) 

fiT4=fiTRM  ( <  Cn23+E3-H3 ) ,.'  ( Z*R3  )  ) 

TUZ=TUZ+fiT3-HT4 

IF<Cl34:>3&S,368,36y 

RT5=RTRH(  (Cri34^t£3-H3  )/CZ*R3 ) ) 

RT6=fiTRN(  '■:Cr134+E4-H4  )/(Z*F;4  ) ) 

TUZ=TUZ+RT5-RT6 

!F<C! 4 1)370 ,370, 375 

RT7=flTRN<  (Cm  1*E4-H4  ),/<Z+R4  ) ) 

RTS=HTHr'i''^  <;Ch4  1*E  1-H 1  ),.'<Z*R  1 ) ) 

TUZ=TUZ+RT7-flT8 

GO  TO  450 

J.   COriPUTE  ! HOUSED  UELOCITV  BV  OURDRRFOLE  METHOD 
RP03=Rpq+*3 
RPQ7=(RPQ3++2  >+RPQ 
US1=  X/Rpq3 
XS0=X*+2 
S>S0=V+*2 
ZSQ=Z**2 

FS=V&0+ZSO-4 . *XSQ 
0S=XS0+ZSq-4 . +VSO 
US2=X*c:Q  .  *PS+30  .  *XSO  )/RPQ7 
WS3=3.+S^*PS/RP07 
US4=3.+X+qS/RPQ7 

TUX=Rt^U£  1-C  i  XV*US3-C  1  XX*W£2-C  I VV+WS4 
WS1=V,/RP03 

WS2=V+(9 . +US+30 . *VSU  >/RPQ7 
TUV=R+WS  1-C  I  XX*US3-C !  XV+IJ34-C I VV+US2 
TUZ=Z'^^(R,/Rpq3-3 ,  +<C  i  XX*PS-5 .  +C !  XV*X*V+C  I  VV*qS  )/RP07  ) 
UX< 1 S )=TUX*XX+TUV+XV+TUZ*XN(K ) 
UV( I S )=TUX+VX+TUV*VV+TUZ+VN(K ) 
UZ-: !  S  )=TUX*ZX+TUV+ZV+TUZ+ZNCK ) 
GO  TO  470 

K.   COhPUTE  IhDUSED  UELOCITV  BV  nONOPOLE  METHOD 
flRPQ3=H/(RPu*+3) 
UX  < I S  )=  <  XCO-XC  >+RRP03 
UV ( ! S  )=  ( VCQ- VC )*RRPQ3 
UZaS)=  ':ZCQ-ZC)+fiRPQ3 

L.   REFLECT  OFF  BODY  POIHT  IH  PLRHE  OF  SVMETRV 
GO  TO < 480 .  485 ,  490 , 495 , 500 , 505 , 5 1 0 , 5 1 5 ) J  S 
UKJ1)=UX<1) 
U2<J1)=UX(1) 
U3(J1)=UXC1> 
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UKJ1+1)=UV(1> 

U2<Ji+i>=uvc;i) 

U3<J1+1)=UV(1) 
UKJ1+2>=UZ<1) 
U2(J1+2>=UZ(1) 
U3(J1+2>=UZ(1> 
IFCSVM)  525,525,481 
481  IS=2 
C  X2  SVMETRV 

VCO— VCQ 
GO  TO  345 

485  IF<SVf1-1)517,517,48e. 
C  XV  SVriETRV 

486  IS=3 
ZCQ=-2C:Q 
GO  TO  345 

490    IS=4 

VCO=-VCQ 

GO  TO  345 
4Q5  I F  (.  SVri-2  )5 1 6 , 5 1 6 ,  496 
C  VZ  SVMETRV 

496  i  S=5 

XCQ=-XC.O 

GO  TO  345 
5Q0  iS=5 

VCQ=-VCQ 

GO  TO  345 
505  IS=7 

ZCO=-ZC:0 

GO  TO  345 
510  1 8=8 

VCQ=-Vr:0 

GQ  TO  345 
C      M.   ROD  CONTR ! BUT  1 OMS  OF  RLL  REFLECTION:! 

515  U  K J 1  )=U  1  kJ  1  )+UX';S )+UX(7 >+UX<6 >+UX(5 > 
U2(J  1  )=U2c:J  1  )-UXc:8  )+UX(7  >+UX(6  )-UX(5 ) 
U3 ( J 1 )=U3 ( J 1 >-UX  <  8  >-UX ( 7  >+UX  <  6  )+UX ( 5  > 
UKJH1>=UKJ1+1)-UV(8:'+UV(7)+W(6>-UV(5) 
U2  <  J 1  +  1  )=U2  <  J 1  + 1  >+UV  <  8  >+UV  <  7  >+UV  <  6  >+UV  ( 5  > 
U3  C  J 1  +  1  )=U3  C  J 1  +  1  Hl'V  <:  S  ?-UY  <  7  HUV  C  6  ?-UV  <  5  ) 
U 1  >;  J 1 +2  )=U  1  ( J 1 +2  )-UZ  (  8  )-UZ  ( 7  )+UZ  <  6  )+UZ  ( 5  > 
U2(.J  1+2  >=U2(J  1+2  >+UZ(8  >-UZ(7  >+UZ(6  >-UZ<5  > 
U3  <  J 1  +2  )=U3  •:  J 1  +2  )+UZ  ( 8  >+UZ  -:  7  )+UZ  ( 6  HUZ  <  5  > 

516  U  1<  J 1  )=U  K  J 1  HUX(:4  HUX<3 ) 
U2 <  J 1 )=U2  <  J 1 )+UX ( 4  >-UX ( 3  > 
U3  C  J 1  >=U3  ■;  J 1  >-UX  ( 4  >-UX  ( 3  > 
UKJ1+1)=UUJ1+1>+UV<4>-UV<3> 
U2  (  J 1  +  1  )=U2  (  J 1  +  1  )+UV  (  4  HUV  (  3  ) 
U3  <  J 1 + 1 )=U3 ( J 1 + 1 )-UV  <  4  >+UV ( 3 ) 
U 1 <  J 1 +2  >=U 1 ( J 1 +2  >-UZ ( 4  >-UZ ( 3  ) 
U2  ( J 1  +2  >=U2  ( J 1 +2  >-UZ  ( 4  J'+UZ  ( 3 ) 
U3(.J1+2>=iJ3c:J1+2)+UZ<4>+i..JZ<3) 

517  U1':J1>=UUJ1)+'v'X<2) 
U2(J1)=U2(J1>-UX(2> 
U3<J1>=U3<.J1>+UX<2> 

u  1  cj  1  + 1  )=u  1  ( J 1  + 1  :'-uv  ( 2 ) 

U2<J1+1)=U2<J1+1>+UVC2) 

U3<J1+1>=U3'::J1+1>-UV<2> 
U1(J1+2)=U1(J1+2>+UZ<2) 
U2U 1+2  )=U2(  J 1+2  )-UZC2  ) 
'vl3  ( J 1  +2  ;=U3  <  J 1  +2  )+UZ  ( 2  > 
525  UX 1  ( JQ  >=UX  1  ( JQ  :'+U  1  ( 1  >*S  1  <  P  > 
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UV 1  ( JQ  )=U  V 1  ( JQ  >+U  1  ( 2  >*S  1  (.  P ) 

UZ 1 ( JO  >=UZ 1 ( JQ  >+U  K  3  >*S  K  P ) 

UX2( JO )=UX2< JQ )+U2< 1 )*S2(P  > 

UV2  <■•  JQ  )=UV2  <  JQ  )+U2  <:  2  )+S2  <  P ) 

UZ2  '•  JQ  >=UZ2  <  JQ  >+U2  <  3  )*S2  ( P  > 

UX3(  JQ  )=UX3(  JQ  >+U3<  1  :'*S3(P ) 

UV3  <  JO  >=UV3  <  JQ  >+U3  <  2  >*S3  <  P  > 
530  UZ3 ( JQ  >=UZ3  C  JQ )+U3 ( 3  >*S3  C  P  > 
C  N.      END  OF  LOOP  OUER  OFF  BODV  POINTS 

585  P=P+1 

K=K+  1 

J=J+2n 

IF<K-NP   )295,296,599 
C      P.  END  OF  LOOP  OUER  QUADS 
599  H=RP<IRK>*DT 

DO  730  i  =  I^NOBP 
63  F0Rf1flT(2X .13, 3F 12 . 5, QX . 4F  12 . 5 > 

DY(  I  >=-<UX !  •+UX 1  ( I  )+UV  I  +UX2<  i  >+UZ  t  +UX3<  I  >  > 

DV(  I  >=-':ux  I  *uv  1  ( i  )+i'v  I  +uv2(  I  >+uz  I  *uv3';  i  > ) 

730  DZ<  I  >=-(UX  I  *UZ  1  <  I  )+UV  I  *UZ2i;  I  )+UZ  I +UZ3-;  t  ) ) 

IFURK.EO.S;  GO  TO  900 

IF(IRK.En.4:'  GO  TO  800 

DO  750  l=1,N0BP 

XP<!)=XT(I>+DX<I)*H 

VPCI  >=VT(I  HDVCI  )*H 

ZPd  >=ZT(I  >+DZa  >*H 

SKX< I >=SKX( ! )+GM( I RK  >*DX( I > 

SKV<  I  )=SKV<  I  >+GM(  IRK )+DVc:  I  ) 
750  SKZ( !  >=SKZ<  I  HufK  1RK>+DZ(  I  > 

IRK  =  IRK  +  1 

GO  TO  98 
800  H=DT 

DO  830  i=1,N0BP 

DX<  I  >=-(UX  1 +UX 1  (.  i  ':>-rW  i  *UX2(  I  )+UZ !  *UX3<  I  >  > 

DV<  i  >=-(ux  i  *uv  1  ■;  I  >+uv  i  +uv2(  I  :huz  i  +i'\'3-:  i  > ) 

DZ(  I  )=-(:UX  I +UZ 1  c:  l  )+UV  l  =+^UZ2(  l  )+UZ  l  *UZ3<  I  ) ) 

XP< I )=XT< I >+H+DX( I >/5 . +SKX( I )*H 

XT( !  >=XP<  I  :.' 

VP-;  I  >=VT(  I  >+H+DV'r  I  >/6 .  +SKV<  !  )+H 

VT<!  )=VPCI > 

ZP<  I  >=ZT<:  I  )+H*DZ(  I  )/'5  .  +SKZC  I  )+H 

ZT<I  >=ZPO  > 

SKX<i)=0. 

SKV<I )  =  0. 
830  SKZ< I  )  =  0. 

IRK  =  5 

GO  TO  98 
900  IRK  =  1 

DO  QG5  l=1,N0EP 

DSQ=DX(  I  >*+2+DV(  I  >*+2+DZi:  i  >++2 

CP(!)=1.-DS0/US0 
905  CONTINUE 

WRITE (6, 61;  ITC 

61  F0RriHT<6H0  STEP.  1 4/ > 
WRITE-:  6, 62) 

62  FORMRT ( 3X , 4HL I NE , 5X , 1 HX , 1 1 X , 1 HV  J  1 X  J  HZ , 20X , 2HUX , 1 0X , 2HUV , 
1       10X,2HUZ. 10X,2HCP) 

WR I  TE(6, 63  >  <  I ,  XP(  I  ) .  VP<  I  >,  ZP<  I  >,  DX(  I  > .  DV<  I  >, DZ<  I  > ,  C.R(  I  >  J  =  1 , NOBP ! 

WR !  TE<  16  >  <  XP(  I  ),  VPa  ),  ZP<  I  >,  1  =  1,  NOBP  ) 

IFUTC.EQ.NST)  GO  TO  910 

ITC=!TC+1 

GO  TO  599 
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Q1G    IFdEND.EQ.O    )  GO  TO  S3 
REWIND  03 
REWIND  04 
ENDFILE    16 
REk'im    15 
STOP  6 
END 

FUNCT I  ON  SQ2F (X 1 ,  X2/y'  1 ,  V2 .  Z 1 ,  Z2  ) 
X=X1-X2 
V=V1-V2 
Z=Z  I-Z2 

RS=Z**2+V**2+X**2 
R=f!BS  ( X  >+fiBS  <  V  >+RBS  <  Z  >+    1 .  0E-20 
R=.3422*(R+(RS+RS>/R;' 
R=  R+RS/R 
Sn2F=    .25*R+RS/R 
RETuriN 
END 
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RPPEHDIX  Uil  -  XVZPF  SECT  I  OH  PF7 

PROGRAM  PFP7  ( TAPE? ,  I  NPL!T=  1 28 ,  OUTPUT=  1 28 ,  TflPE5=  I NPUT ,  TAPE  1 7 , 
1TAPE6=0UTPUT , TAPE03 , TftPE04, TAPE3=TflPE03, TAPE4=TRPE04  > 
C 

C     XVZ  POTENT  I RL  FLOW  PROORRM  UERSIUfi  4  AND  UERSION  5  SECTION  7 
C     COMPUTES  UELOCiTIES  AND  PRESSURE  COEFFICIENTS  FOR 
C     ON  BODY  STREAMLINES 
C 

COMMON    X ( 658  > , V  <  658  > , Z ( 658  > , XN ( 650  > , VN  < 650  > 
1 , ZN ( 650  > , UX  K  650  > , UV  K  650 ) , UZ  K  650  > , Ua2 ( 650 ) , UV2  <  550 ) 
2 , UZ2 ( 650 ) ,  UX3  C  650 ) , U V3  <  650 ) , UZ3 ( 650 ) , XC  K  658  ) , VC  U  658  ) 
3 ',  XC2  ( 658  > .  VC2  <  658  > ,  XC3  <  658 ) .  XC4  <  658 ) ,  VC4  <  658  ) . 
4X3  ( 658  > ,  V3  ( 658 ) ,  Z3  ( 658  > ,  X4  <.  658  > .  V4  ( 658  > .  Z4  ( 658  > 
D  i  MENS  I  ON  XL  <  1 50  > ,  VL  ( 1 50  > ,  ZL  <  1 50  > ,  UX  ■;  1 50  > ,  UV  <.  1 50 ) .  UZ  <1 50  > , 
1 CP  ( 1 50  ::> ,  GK 1  (  \  50  ? ,  GK2  ( 1 50  ? ,  H2  (  1 50  .\  STML  (150?,  URBS  ( 1 50  .\,  NOURO  (  1 50  ? 
5 ,  DMX  ( 650 ) ,  PROB  <  1 5  > ,  VC3  ( 658 ) ,  SF  •:  5 ) ,  XCR  ( 5 ) ,  VCR  •;  5 )  , 
7NSP  <  50  > ,  WS  •■  220  >  ,  XST  <  50  > ,  VST  <  50  > ,  ZST  ( 50  > 
EQU ! UALENCE  <  WS ( 20 1 ) , NP  > ' <  VC3 , VC2 ) 
READ C 03  X PROB <  I  ),  1  =  1  J5> 
READ ( 03  > ( US  < I > . 1  =  1 . 220  > 

RErD(03>(X(I  >,V(I  >^Z<I  >.XN(I  ).VN(i  J'.ZNd  >. 
1SKIP, l=1,NP> 
RERD(03:'3faP 
IUER  =US':220> 
WRiTE(6,5>  IUER 
5  FORMAT (46H0XVZ  POTENTIAL  FLOW  PROGRAM  SECTION 
IF  < IUER. EG. 5)  READ<03)  SKIP 
F;ERD(03;SK!P 
READ(03)SKIP 
READciOS^SKlP 

REfiD(03)(UX1<l  >,UVUI  >,UZ1(i  ),  1  =  1, NP> 
READC03KUX2a  >,UV2(I  ),UZ2a  ),  i  =  1,NP> 
READ < 03  >(UX3( I  >  UV3< I  >  UZ3( \  > , 1  =  1, NP  > 
REMIND  03 
NB=c:NP+11>/12 
DO  80  1=1, NB 
iFN=l*12 
1 S=  i  FN- 1 1 

READ  ( 04  :-  0 ,  ore  1  ( J  ? ,  VC 1  <  J  ) ,  XC2  (  J  > , 
1 VC2 ( J ) , XC3 ( J ) , XC4  <  J ) , VC4 ( J ) . X3  <  J ) , V3 ( J  > , 
2Z3<  J  >,  X4(  J  >,  V4<  J  > .  Z4(  J  > ,  <SK  I P  ,  K=  1 , 7  > ,  J='!  S  ,  I  FN  > 
NQ=0 

IFc:NO.NE.  iS;  GO  TO  450 
SO  CONTINUE 
REWIND  04 
DO  90  l=1,NP 

D  1  =  CXC  K  I  >+*2+VC  1  <  I  ?**2  >+ 1,01 
D2=(XC2( I )*+2+VC2< 1 )*+2 )* 1 . 0 1 
D3=(XC3< I >*+2+VC3( I >+*2>*1 .01 
04=cxc:4<  I  :)*+2+VC4(  I  )**2  >*  1.01 
90  DMX ( I  )=AMRX  U  D 1 , D2 , D3 , D4 ) 

1 1  F0RMftT(3F  12 .  4  ,  3  i  4  ,  F  12 . 4  .^ 

1 2  FORi  lAT  ( 3F 1 2 . 4 ,    14) 
M 1 0=75 

100  READ (5 ,11?  UX I , UV I , UZ ! , NL I N . MRXJ, I WR I TE . RMRCH 

IF  (E0F':5).NE.0.  >  NLIN=0. 
MXJ=MAXJ 

IF  (  MAX  J  .LE.  0   .OR.   MAX  J  .GT.  NP/2.?  MAX  J  =  NP/2 

MINJ=M1D-MAXJ 

MAXJ=M I D+MAX J 

IF  <MAXJ.GT.M1D*2>  MAXJ=MID*2 
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IF   (   MINJ    .LT.D     MIHJ  =    t 

miTE<7    >     NLIH 

WRITEa?)     NLIN,UXI,UVI,U2I 

IFCNLIN.LE.O)  GO  TO  550 

WF; I TE(5 . 30 >      (PF;OB<  I  ) .  I  =  1 ,  15 ) 

WR I TE  <  6 .  34  >  UX I ,  UV I  .  UZ I  .  NL I H ,  MX  J  J  WR I TE .  RMRCH 
34  F0RriHT<34H00N  BODV  STREflMLiNES  -    INPUT  DRTR      /6H  UXi    =,F10.5/ 
15H  UVI    =,F10.5/5H  UZI    =,F1D.5/5H  riLiri=J10/ 
2  6H  JMflX=J  10./.SH    ILiRlTE=J  10./,QH  MFiCri  N0=.F10.5) 

WRiTE(6.33> 
38  FGRmT(27HCiSTREHMLiHE  START  I NG  PQir-iTS/SH  LINE  J  IX  JHX  J2X  JHV, 
1      12XJH2J0X,3HHSP) 

Lm=NL!H 

DO  45    i=1,LIH 

REhD(5,  12 )  XST<  I  )  ,  VST<  I  > . ZSTa  ) ,  NSP<  1  > 

IF  <E0FC5?.E0.0, ?  DC  TO  45 

NL  m=  1  -  1 

WR1TE(6,42>     NLIN.LIH 
42  FORnfiT  ( 1  HO  J  5 ,  2SH  STREflriL  I NES  SPEC  I F 1  ED  HOT        J  3 ) 

IPaHLIN.LE.O)  GO  TO  550 

GO  TO  48 

45  NRiTE(6.45>  I  .XSTd  :^VST(  I  ;',ZST(|  :.,HSP(  I  > 

46  FORMAT  < 1 X , 1 3 , 2X . 3F 1 3 . 5  J  9  > 
48  CONTINUE 

USu=UX  I  *+2+US^ !  **2+yZ  I  **2 
IF  vRMRCH  .EQ.  0.>  GO  TO  1130 
C  **+  COMPUTE  CRITICRL  MflCH  NO. 
USD  =  0. 
DO  1100  1=1, MP 
US  =  <UX I +UX 1 <  i  >+UV I *UX2< I  )+UZ ! *UX3( I  )  )*+2  + 

1  <UX  i  *'..■' Y 1  <  I  )+UV  I  *UV2<  I  )+UZ  I  +UV3<  I  >  >*+2  + 

2  (UX  1  +'JZ  1  ( I  >+'v'V  I  *UZ2''  I  )+vZ  I  ''■'■.•'Z3(  I  >  ?**2 
IF  (US  .GT.  USD)  USD  =  US 

1100  CONTINUE 

U  =  SORT -:  USD /USQ) 

CMHR  =  1./U 

DO  1110  1=1,3 

CMNB  =  (.  ( <CMNR**2+5  .  )/6 .  )*+ 1 .  75  )/U 

CMNC  =   <<<CnNB^+^+2+5.  >/6.  >*+1.?5>/U 
inC  CMNR  =   (CnNR*CnNC-CI1NB**2;/<CnNfl+CMNC-2.+CMNB) 

URlTE-:&,  1120)  CMNR 
1120  F0RMRT<21H  CRITICRL  MRCH  NO.  =,F5.3;' 
1130  CONTINUE 
C     STRRT  LOOP  OUER  STRERMLINES 

DO  400  LL= 1 , NL I N 

DiRT='!. 

101  Jl=1 
RF=1. 

ux':;m!d:''=o. 

UV(MID>=0. 

uzanD)=o. 
cpaiiD.j=o. 

H2(MID>=1. 
GKKM!D)=0. 
GK2<MID>=0. 
STML<MID)=n. 

102  NO=NSP(LL) 
LNO=NO 

.xl<mid)=xsT':ll) 

VLi.MiO)=VST(LL.> 

zl<mid>=zst<ll;) 

J=MID 
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JL=J 
C     SEPRRftTE  CftLCULflTIOH  OF  SECOND 
C     POINT  FROM  NRIN  LOOP 

XLT=  <  XL  <  J  >-X ( NO )  )*X3 <  NQ )+ ( VL ( J  >- V < NQ )  )*V3 < NQ  ) 

1  +(ZL<J>-ZaiQ>)+Z3<N0> 

VLT=CXL< J  :-X(NQ  > )*X4(NQ  >+(VL( J  >-V<NQ )  >*V4(NQ  > 
1  +<2L<J>-Z<NQ))*Z4<N0> 

XL  ( J  )=XLT*X3 ( NQ  HVLT*X4  ( NQ  )+X  ( NQ  > 

VLC  J  )=XLT*V3CNQ  )+VLT*V4i;NQ  )+VCNQ  > 

ZL<J  >=XLT*Z3(NQ  >+VLT*Z4<NQ  >+Z(NQ  > 
105    IQT=f100(N0,4)  +    1 

GO  TO   (630,600,610,620)      lOT 
600  NR=NCl+1 

iiLI=Ha+2 

GO  TO    107 
610  NR=NQ+2 

NiJ=NQ-  1 

GO  TO    10? 
620  NR=N0-2 

NU=NO+  1 

GO  TO    107 
630  NR=NQ-1 

NLI=N0-2 
1 07  UXQ=-  (  UX !  *UX  1  (.  NQ  )+UV !  *UX2  ( NQ  )+UZ  I  *UX3  ( NQ ) ) 

UVO=-(UX  1 +UV 1  (NO  )+UV  i  +UV2':N0  >+UZ  1  *UV3(N0  > ) 

UZO=-  (  UX  I +UZ 1  •■  NQ  >+UV  I  *'v'Z2  <  NQ  >+UZ  i  *UZ3  ( fiQ  >  > 

UXR=- ( UX  i  +UX 1 ( NR )+UV ! *UX2 ( NR  >+UZ ! +UX3  <  NR )  > 

UVR=-(UX  I +UV  UNR  )+UV  I  *UV2(NR  HUZ I  *UV3<NR ) ) 

UZR=- ( UX I +UZ  K  NR )+U V I +UZ2 ( NR  >+UZ I *UZ3 ( NR  ? ) 

UXU=- ( UX 1 *UX 1 ( NU )+UV I *UX2 ( NU  )+UZ I *UX3 ( NU  >  > 

UVU=-<UX  I  *UV  1  (NU  >+UV  1  *UV2(NU  )+UZ  I  *UV3(NL1 ) ) 

UZU=- (UX ! *UZ 1 (NU )+UV ! *UZ2 (NU  HUZ ! *UZ3( NU  )  > 
C  TRRNSFORM  UELOCITIES  TO  OURD  SVSTEN 

UQ=UXQ*X3(NQ  >+UVQ*V3(NQ  >+UZQ*Z3(NQ  > 

UQ=UXQ*X4 ( NQ  >+UVQ* V4 ( NQ )+UZQ+Z4 ( NO  > 

CSR=  1 .  /(XN(NO  )+XN(NR  )+VN(NQ  )*VN(NR  ■hZN(NO  )*2N(NR  )  ) 

UT=UXR+X3  ( NR  ::«+UVR+ V3  ( NR  >+UZR+Z3  ( NR ) 

UT= ( UXR*X4 ( NR  HUVR+V4 ( NR )+UZR+Z4 ( NR  >  >*CSR 

XXR=   (  X3  (  NR  :>*X3  ( NQ  >+ V3  ( NR  >*V3  ( NO  >+Z3  (  NR  >*Z3  (  NQ  )  > 

XVR=   ( X4 ( NR )*X3 ( NQ  >+V4 ( NR  >*V3 ( NQ  >+Z4 ( NR  )*Z3 ( NQ ) ) 

UR=UT*XXR+UT+XVR 

VXR=   (  X3  (  NR  >+X4  (  NO  :.'+S^3  (  NR  >+V4  ( NO  >+Z3  (  NR  >+Z4  (  NO  >  > 

VVR=   ( X4 ( NR  >*X4 ( NQ  H V4 ( NR )*V4 ( NO )+Z4 ( NR  >*Z4 ( NQ )  > 

UR=UT+VXR+UT+VVR 

UU=UXU+X3(NQ  >+UVU*V3(NQ ;+UZU*Z3(NQ ) 

CSU=   ( XN  ( NQ  )+XN  ( NU  >+ VN  ( NQ  >*VN  ( NU  :'+2N  ( NQ  :'*ZN  ( NU  >  > 

UU= ( UXU*X4 ( NQ  >+U VU*V4 ( NO  >+UZU+Z4 ( NQ ) )  /CSU 
C     FINO  RELRTIUE  CQORDINRTES  OF  NEIGHBORING  QURDS 

XD=X(NR>-X(NQ) 

VD='.'(NR>-V(NQ> 

ZD=Z(NR>-Z(NQ) 

XT  =XD+X3(NR  >+VD+V3(NR )+ZD+Z3(NR ) 

VTT=XD*X4 ( MR ;+VD*V4 ( NR )+ZD+Z4 ( NR  J 

ZT  =XD+XN(NR  >+VD+S'N(NR  >+ZD+ZN(NR  > 

VT=(-4+S0RT(VTT+*2+ZT**2  >+VTT+CSR+VTT  >*CSR+ . 16666667 

XR=XT*XXR+VT*XVR 

VR=XT+VXR+VT+VVR 

XD=X(NU>-X(NQ> 

VD=V(NU>-V(NQ:' 

ZD=Z(NU)-Z(NO) 

XU=XD+X3(NQ )+VD*Y3(HQ  >+ZD*Z3(NQ ) 

VT=XD*X4  <  NQ  >+ VD*V4 ( NQ  >+ZD+Z4 ( NQ  > 
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2T=XD*XN  (  NQ  )+VD*VN  ( NQ  >+ZD+2ri  ( NQ  > 

VLI=<4  .  *SQRT<:VT**2+ZT**2  >+VT/CSU+VT  >*  .  16666667 

FIND  COEFFiCIENTS  OF  UELOCITV  FUNCTIONS 

DEN=1./<XR*VU-X1.1*VR) 

u  1 = <  <  UR-uo )*vu- <  uu-uq  >*VR  >  *DEH 

Li2=-  ( ( UR-UQ  )*XU-  ( UU-UQ  >*XR    )+DEN 

U 1  =  <  < UR-UQ  >*VU- <  UU-UQ  >*VR  >  *DEH 

U2=- C ( UR-UQ  )*XU- <  UU-UQ  >*XR    >*DEN 

FiND  UELOCITV  RT  STRERMLIHE  POINT 

USL=UO+U 1*XLT+U2*VLT 

USL=UQ+U1*XLT+U2*VLT 

UXP=USL*X3<NQ )+USL*X4(N0  > 

US^P=USL*'v  3  <  NO  >+USL+V4  { NQ  > 

UZF -USL*Z3  (.  m  :'+USL+Z4  ( NQ  > 

FIND  GEODESIC  CURUPTURES  GK1,GK2 

USQD=USL**2+USL*+2 

DEN=USQD*SQRT(USQD) 

OK  1P=(USL+v  USL+U2-USL+U2  :'-USL*(USL*U  1-USL*U  1  >  >/DEN 

GK2P=  ( USL+ ( USL+L!  1 +USL+U2  ^-USL''*^  <  USL*U  1 +USL+U2 ) )  /DEN 

FiND  LOCAL  STRERM  FUNCTION 

CXV=  <  U 1  +U0*'^2-  •,!2*L!0*'''2 )  /USCD 

CVV=U2-UQ*ua+(U 1+U2 )/USQD 

CXX=U2-CVV-U 1 

C0=XLT+U0-VLT+U0-CXV^♦^i(LT*VLT-CVV+VLT*+2-CXX*XLT**2 

FIND  STRERM  FUNCTION  RT  CORNER  POINTS 

XCR<1>=XC1<NQ> 

XCR(2>=XC2';NQ) 

XCR<3)=XC3(NQ) 

XCR<4  >=XC4<N0) 

XCRCS  )=XCR( 1 ) 

VCR<1>=VCKN0> 

VCR(2>=VC2^NC> 

vcR':3>=vc3';no) 

VCR(4>=VC4(NQ> 

VCR<:5>=VCR(1> 

DO    11Q  N=1,4 
110  SF  <  N  J'=CO-UQ'^XCR  (  N  >+U0+VCR  <  N  •'+CXS'+XCR  '■.  N  >+VCR  ( N  >+CVV+VCR  ( N  )**: 
1  +CXX*XCR(N>*+2 

SF(5:'=SF<1> 

TEST=0 

DO    120  N=1,4 

IF   (   SF<NV+SF(:N+1>    ,GE.    O.    >     go  to    120 

Xf1=  •;  XCR  ( N  )+XCR  ( N+  I )  )* .  5 

Vri=<VCR<N  >+VCR(N+ 1 ) )+ .  5 

FIND  INTERSECTION  WITH  SIDE  OF  QURD. 

SFN=C0-UQ*XN+UQ+Vf1+CXV*Xi1+Vi1+CS'V+VM**2+CXX*Xri**2 

fiC=2 . *<SF<N  >-2 . *SFN+SF(N+ 1 > ) 

BC=3  .  *SF  (N  ;'-4 .  *SFn+SF  (N+ 1 ) 

IF   (ftC    .EQ.    0)  GO  TO    112 

SR=SQRT ( BC*+2-4 . *RC*SF ( N  >    > 

TF-(BC+SR)/<2.*RC) 

IF   <TP    .LE.    1.     .AND.    TP    .GE.    0.     )     GO  TO    115 

TP=  ( BC-SR  >  /  (.  2 .  *RC  ) 

60  TO   115 
113    IF   <BC    .EQ.    0    )  GO  TO    120 

TP=SF(N>/BC 
1 15  XHP=C 1 . -TP )+XCR<N  >+TP*XCR(N+ 1 > 

VNP=(  1 .  -TP  >+vcr<:n  >+TP+VCR<N+  1  > 

TESTP= ( ( XNP-XLT  >*U0+  <  VNP-VLT  >*UQ )*D I RT 

IF   (TESTP    .LE.    TEST)     GO  TO    120 

TEST=TESTP 

XNT=XNP 
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VNT=VNP 
120  COHTINUE 

IF(  TEST   .EQ.    0)     GO  TO  280 
flUERRGE  LAST  UELOCITV  RND  CURUflTURE 
LIX<J>=a!X<JHUXP)+R'^ 
US'(J)=<UV(J)+UVP>+RF 
UZ  <:  J  >=  <  LI2  <  J  >+UZP  >*RF 
GK  U  J  )= ( 6K 1 <  J )+GK 1 P )*RF 
GK2  C  J )=  <  GK2 ( J )+GK2P )+flF 

H2  (  J  >=H2  ( JL  )*  <  2 .  -GK 1  i  JL  >+  •:.  STML  ( J  >-STML  ( JL  >  > )  /  ( 2 .  +GK 1  (  J  >*  (. 
1  STHLCJ)-STML(JL))) 

CP<  J  )=  1 .  -aiX(  J  )*+2+UV<J  )*+2+UZ(  J  )+*2  )/USO 
UflBS ( J  >=SQRT ( 1 . -CP ( J  )  ) 
COilPUTE  UELOCITV  RT  NEXT  POiHT 
NQUflD(J>=NO. 
JL=J 
J=J+JI 

USL=LIO+XNT*iJ  1 +S^NT*U2 
USL=Uq+XNT+U1+VNT+U2 
UX  <  J  )=USL+X3  (  NO  HUSL^^X4  c!  NO ) 
|_iy  ( J  :5='JSL*V3  ( HO  >+USL*V4  ( HO ') 
UZ< J >=USL+23(HQ )+USL*Z4(HQ > 
COMPUTE  GEGDES  i  C  CURURTURES 
US0D=L'SL*+2+USL**2 
DEN=U£OD+£QRT  < USOD  > 
GK  U  J  >=vUSL*(USL+U2-USL*U2  >-USL*(:USL*lJ  1-iJSL+U  1  >  >/nEN 


GK2<J>=(USL*<USL+LM+'/':L*U2)-L!?L+vLIJL*v;H-USL*U2)! 

CORD=S0RT ( ( XNT-XLT  >++2+ ( VNT- VLT  )**2  )*D I RT 

STNL  <  J  )=STriL  ( JL  >+CORD 

COnPUTE  H2 

H2  <  J  )=H2  <  JL  )*  <  2 . -CORD+GK 1<  JL  > )  / <  2 . +CORD*GK  K  J ) ) 

QP ' . !  ^=  1  -l.!.-;PO  /l.!?;n 

UflBS  <  J  )=sqRT  ( 1 .  -CP  ■:  J )  > 

RF=.5 
LNQ=NQ 


]EN 


XL<J)=XNT+X3(N0 


)+VNT+X4(N0>+Xc:N0) 


yl  (.  j  >=xht*v3  <  no )+ vht*v4  <  no  hv  <  no ) 
>+vnt+Z4(:ho>+Z(nq) 


J  .GE.   mxj  > 


2L<J>=XHT*Z3(Hr 
IF   <   J    .LE.    fUNJ 
FIND  NEXT  QLIRD. 
1  =  1 
250  HO=l 

!F(I .EO.LNO)  GO  TO  280 
TE£T=aLCJ)-X<  I  >)**2+<VLCJVVt:  I  i)+*2+ 
1<ZL(J)-Z( !  :?;++2-DriX< !  ) 
iF(TEST.GT.O.  )  GO  TO  230 
DS1=(XCK1  >-XC2<l  >>*+2+<VCKl  >-VC2<  I  >)+*2 
DS2=CXC2( I >-XC3C 1  ))**2+CVC2( 1 )-VC3( I >)++2 
DS5=<XC3C  I  >-XC4<  !  ))++2+':VC3u  1  )-VC4i;  1  ))**2 
DS4=(XC4( I >-XC 1 ( ! >  >**2+(VC4( ! >-VC 1 <  i  >  >*+2 
XLT=(XL<J>-X< !  ;):)+X3(  I  >+<VL(J)-V(  I  )>*V3( !  )+ 

u'zl<:j>-z<i  >)+Z3a  > 

VLT=(XL<J>-X<  I  >>+X4( !  >+(S-'L(  J>-S'<  I  ;>+v4( !  )+ 
1<ZL(J)-Z(!)>*Z4(I ) 

2LT=<XL<J>-X''  I  >>*XN<  I  >+<VL<J>-V<  I  ))*VN<  I  >+ 
KZL(J)-Z(I  ):'*ZHO  > 

ZS0=2LT*+2 

TEST=ZSO-. 1+DHX(i  > 

IF<TEST.GT.D. )  GO  TO  280 

RC 1 =SqRT  K ZSQ+ ( XLT-XC 1(1)  >++2+ ( VLT- VC 1 ( I ) ) 

RC2=SQRT<ZS0+<:XLT-XC2(  I  >>++2+(VLT-VC2< !  '?>^'^2) 
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RC3=SQRTC2Sq+CXLT-XC3C!  ;)**2+':VLT-VC3':  I  );*+2) 

RC4=S0RT<ZS0+(XLT-XC4( I )>**2+<VLT-VC4< I ))**2) 

TEST=  <(RC1+RC2)++2)-DS1  *1.21 

IFcTEST.LT.iD.  )  60  TO  105 

TEST=  <  (  RC2+Rl:3  )**2  )-DS2  *  1 . 2 1 

IFCTEST.LT.O.  >  GO  TO  105 

TEST=  <  <  RC3+RC4  >*+2  >-DS3  *  1 . 2 1 

IF(TEST.LT,0. )  GO  TO  105 

TE£T=  ':<:RC4+RC1)**2)-DS4  *1.21 

1F<TEST.LT.0. >  GO  TO  105 
2S0  !=!+1 

IF<1.LE.NP)  GO  TO  250 
282  IF  (DIRT  .LT.  0.)  GO  TO  285 

D I RT=- 1 . 

Jl=-1 

jriRX=j 

GO  TO    102 
285  JM1H=.J 

SS=STriL(JMIH) 

DO  2Q0  J=JMIH,JMfiX 
290  STML(J>=STML';j)-SS 

JMN=jrilH+1 

JMX=JMRX-2 

RF=1. 

L=J!1N 

WRITEv6,30KPR0B(i  >J  =  1  J5) 
30  FORMAT (1H1, 15R4> 

WRiTE(6,20>UXI,UVi,UZl 
20  FORriRT';  ISHO  OMSET  FLOW 

WR!TE'::6,50:'  LL.HSPdL) 


UX I = . F5 . 3 , 2X , 4HUV I =, F& . 3, 2X , 4HUZ I = , F6 
x:ST(LL>,VSt(LL>,ZST(LL> 


50  F0Ri1RT<11Hn  LINE  NO.  ,I2,31H  PRSSING  THROUGH  OURDR ILRTERRL   .13 


X=,F12.5,2X,2HV=, 


WRiTE<6,55> 
UERV  LONG) 
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2SH     WITH  STRRTING  POINT, 

2H.Z=,F12.5   //> 
i  F    ( .JM I H  .  LE  .  M  f  HJ    .  OR  .    JMRX  .  GE  .  t1RX J  > 
F0RnRT(35H  PROBRBLE  ERROR  -  LINE    IS 
DO  330  J=jriN,Jr-1X 

IF   (    <STriL(J+2>-STriL<L-1>).LT.    8.*(STNL(;j+1  >-STML   <L>>) 
WRiTE(6.310)     XL(L).VL(L),ZLa).XL(J+1  >.VL(J+1  >,ZL(J+1) 
FORMRT (  1 4H  PO  i  NT  DELETED      , 1 0X , 3F 1 2 . 5 , 1 GX . 3F 12.5) 
STML  ( L  ?=  (  RF*STi1L  (.  L  >+STML  ( J+  1)  )  /  ( RF  + 1 .  ) 
XL  < L  >=  C  fiF*XL  C  L  >+XL ( J+ 1 ) J / C  RF+ 1 .  ) 
VL  (  L  >=  <  RF+VL  <  L  >+ VL  <.  d+ 1  >  > /  < RF+ 1 
ZL(L  )=(hF+ZL<L  )+ZL':  J+  1  >>/(hF+  1 
ux<L  >=<rf+ux<;l  >+UXU+  1  )  >/<hF+  1 
UV ( L  >= ( RF*UY ( L  >+UV ( J+ 1 > ) / <  RF+ 1 
UZ  <  L  >=  ( RF*UZ  ( L  :'+UZ  ( J+ 1  >  >  /  <  fiF+ 1 
GK1<L>=<flF*GKKL>+GKKJ+1>>/<flF+1.  > 
GK2CL  )=(RF^GK2(L  )+GK2< J+ 1 )  >/(RF+ 1 . > 
H2(L  >=i:flF*H2<L  >+H2':  J+  1  )  ;'/(flF+  1 .  > 
CP<L  >=  1 .  -<UX<L  >++2+LIV(L  >**2+LIZvL  >++2  >/USn 
URBS(L)=SQRT(1.-C:P(L)::' 
fiF=fiF+1. 
GO  TO  330 
flF=1. 
L=L+1 
K=.J+  1 
STMLaJ=STML(fO 

xl<l>=xl<:k> 

VL<L)=VL<K) 
ZL(L)=ZLaO 

uxa)=ux<K) 

UV(L>=UV(K) 


GO  TO  320 
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UZCL)=UZ<K) 
GK1<L>=GKKK> 
GK2<L>=GK2<K) 
H2<L)=H2(:K) 
CP(L>=C.P(K> 
iJRBS(L)=UflBS(K> 
NQUflD<L>=NQLlflD<K> 
330  COHTIHUE 
L=L+1 

STf1La>=STriL<JMflX> 
XL<L)=XLCJMflX) 
VL(L)=VL<JMflX) 
ZL(L)=ZL<jriRX) 
UX(L>=UX(jriHX> 

uva>=uv<jriRX) 
uZ';L:>=uz(jnRX? 

GKKL>=GK.UJmX> 
GK2<L>=GK2';JMRX> 
H2(L>=H2<jmX) 

cpa)=cpc;jmx> 

UfiBS<L>=UflBS<jrifiX> 
jriHX=L 

NQUflCK  JMRX >=NOIJRDv.JMRX-  i  > 
NQURD Cjn  1 H  )=riQIJRD(jri  1 M+  1 ) 
liRlTE-^e.SI) 
5 1   FORMRT ( 4H0      I . 6X , 1 HX , 9X ,  1 HV , 

1 9X  J  HZ , 09 X , 2HvX , SX , 2HUV , SX , 2HUZ , 09X , 

22HC:P ,    8X  ,  2Hi(  1 ,    SX ,  2HK:2  , '  8X ',  2HK2  \  SX ,  2HSL ,  SX ,  1 HU ,  9X ,  1  HP  > 
IF    (FlflRCH    .EG.    0.)  GOTO    1150 
C  +++  COMPUTE  COilP.RESS I B i L ! TV  CORRECTION 
DO    1150  J=JMIH..JMRX 

USD  =   <UX(J)=^^^^^2+UV(J>^^*2+UZ<J>++2)/USQ 
USDR  =  USD 
SM  =  RriRCH++2 
DO    1140    1=1,3 

R  =  <i.+.2*sm+<i.-usdr:o 

IF  (R  .LT.  .000001)  R  =  .000001 
USDB  =  USD/R*+2.5 
R  =  <1.  +  .2*S?1*<1.-ySDB>> 
IF  CR  .LT.  .000001  ;■  R  =  .000001 
USDC  =  USD/R++2.5 
1 140  USDR  =  <USDC*USDfl-USDB++2)/<USDC+USDP-2.+USDB) 
R  =  <1.  +  .2*Sri*';i.-USDH)) 
IF  <R  .LT.  .000001)  R  =  .000001 
R  =  F;t+  \ .  25 

!jx<:.j)  =  ux<j)/R 

LiV(J)  =  UV<.J)/R 
UZ(J)  =  UZ(J)/R 
URBS(J)  =  SORT  ■;  USDR) 

1 150  CPC  J  >  =  ';:r++2  . 8- 1 .  >/( .  7*sri  > 
1150  CONTINUE 

K=0 

DO  53    l=Jn!N,jnRX 

k=k:+  1 

53  WR I TE  <  6 ,  60  )  K ,  XL  <  I  ) ,  VL  (I  ) ,  ZL  <  I  ) .,  UX  <  I  ) ,  UV  ( I  )  ^  UZ  <  I  ) ,  CP  <  I  ) , 

1  GK  K ! ) , GK2  < I ) , H2  C I ) , STML  < 1  ) , URBS ( !  ) , HDURD \ !  ) 

60  FORMRTC  IX  ,  i 3, 3F  ID . 5,  IX, 3F  ID. 5 .  IX , 6F  10 . 5 ,  1 6 ) 
8  FORMRT <3F 12. 5) 

WR I TE  i  17)  K,    ( XL  >;  I  ) .  VL  ( 1) ,  ZL  <  I  ) ,  NOURD  (I  ) ,  !  =  UN  I N ,  JMRX  ) 
C       IWRITE  .LE.  0     —    URITE  SL,U,H2.K2 
C       lURITE  .GE.  2     --    URITE  X.V.Z.CP 
C      I  URITE  .EO.  1     —    URITE  SLAi,H2,K2  AND  X,V,Z.CP 


^Q 


IF  (iWRiTE.GT.  1>  GO  TO  340 

WR I TE  <  7  >  K ,   (  STML  <  I  > ,  UFlBS  (  I  > ,  H2  <!  > ,  GK:2  <  I  )  J  =JM  i  H ,  JMRX  > 
340  IF  (lURITE.LT. 1)  GO  TO  400 

UP,  I  TEC?  )   K,  (XK  I  >,  VL-:  I),  ZL(  I) .  CP(  I) ,  I  =.JM  1 H  .  JHRX  > 

GO  TO  400 
300  WRITE (6. 50)  NSP(LL> 

WRITE<6,65> 

GO  TO  282 
400  CONTINUE 

GO  TO  100 
C    RERD  NEXT  SET  OF  STREAMLINES 

450  WRITE(6,451>tS,N0 

451  F0RnRTa4H  TftPE  04  ERRnR.2!4> 
550  ENDFILE  7 

REWIND  7 
ENOFILE  17 
REWIND  17 
REWIND  04 
STOP  7 
END 
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flPPEMD I X   Ulil    -   TRtflXIRL   ELLIPSOID    INPUT    FILE 


SAMPLE  PROBu 

EM  TRiflXIflL 

ELLIPSOID 

280   5  150 

150  150   3 

. 0000 1   0 

0 

0   C 

1   0   0 

0   0 

1 . 00000 

.00000 

. 00000 

1 

1   0 

00000 

9785 1 

.00000 

. 10286 

2 

I   0 

00000 

Q0789 

. 00000 

.20960 

3 

1   0 

00000 

.82360 

. 00000 

. 28359 

4 

1   0 

. 00000 

71583 

. 00000 

.34914 

5 

1   0 

.00000 

62478 

. 00000 

. 39040 

6 

1   0 

00000 

52537 

. 00000 

. 42544 

7 

1   0 

00000 

44721 

.00000 

. 4472 1 

8 

I   0 

00000 

37530 

. 00000 

. 46345 

9 

1   0 

00000 

2y322 

. 00000 

. 47725 

10 

1   0 

OOOOG 

23692 

. 00000 

. 48576 

11 

0 

00000 

16957 

. 00000 

. 49275 

12 

IJ 

00000 

11457 

.00000 

. 49670 

13 

0 

00000 

0524S 

. 00000 

. 4993 1 

14 

0 

00000 

00000 

.00000 

. 50000 

15 

0 

00000 

99975 

. 10000 

. 00000 

1. 

1 

0 

00000 

97739 

. 10000 

. 10273 

2 

2 

0 

00000 

90675 

. 10000 

. 20934 

2 

3 

0 

00000 

82257 

. 10000 

. 28323 

2 

4 

0 

00000 

71494 

. 10000 

. 34870 

2 

5 

0 

00000 

523Q9 

. 10000 

. 3S99 1 

^ 

6 

0 

00000 

5247 1 

. 10000 

42490 

1 

^ 

7   1 

0 

00000 

44655 

. 10000 

. 44555 

2 

8 

0 

00000 

374S3 

. 10000 

.46287 

2 

9 

0 

00000 

29735 

. 10000 

. 47555 

z 

10   1 

0 

00000 

23563 

. 1CG00 

.48515 

•-I 

11    1 

0 

00000 

16946 

. 10000 

.49215 

2 

12   1 

0 

00000 

1M53 

. 10000 

. 49608 

•n 
^ 

13   1 

0 

00000 

05241 

. 10000 

. 4Q85Q 

^ 

14    ' 

0 

00000 

00000 

. 10000 

. 49937 

2 

15   1 

0 

00000 

99499 

.  2'U'JUU 

. 00000 

O 

•1        4 

I 

0 

00000 

9737 1 

.20000 

. 10234 

■-1 

2   1 

0 

00000 

90334 

.20000 

. 20S55 

3 

3   1 

0 

00000 

31947 

. 20000 

.28217 

'^ 

4   1 

0 

00000 

71225 

. 20000 

. 34739 

3 

5   1 

0 

00000 

62164 

. 20000 

'^1 

6   1 

0 

00000 

52274 

.20000 

.42330 

3 

7 

0 

00000 

44497 

.20000 

.44497 

3 

8   1 

0 

00000 

37342 

.20000 

.<^'oV>3 

o 

9   1 

0 

00000 

29672 

. 20000 

. 47486 

*^i 

10   1 

0 

00000 

23574 

.20000 

.48333 

•-I 

11    1 

0 

00000 

15S82 

. 20000 

. 49028 

.-1 

12  ' 

0 

00000 

11410 

. 20000 

. 4942 1 

3 

13   1 

0 

00000 

05222 

. 20000 

. 4958 1 

3 

14   1 

0 

00000 

00000 

. 20000 

.49749 

o 

15   1 

0 

00000 

98359 

. 30000 

. 00000 

4 

1    1 

0 

00000 

96754 

. 30000 

.  10159 

4 

0 

00000 

89762 

. 30000 

. 20723 

4 

•"> 

0 

00000 

81 423 

. 30000 

. 2S038 

4 

4   1 

0 

00000 

70774 

.30000 

.34519 

4 

5   ' 

0 

00000 

61771 

. 30000 

. 38599 

4 

6   1 

0 

00000 

51943 

. 30000 

. 42062 

4 

"•      1 

r 

0 

00000 

44215 

. 30000 

.44215 

4 

8   1 

0 

00000 

37105 

. 30000 

. 4582 1 

4 

9   1 

0 

00000 

29434 

.30000 

.47185 

4 

10   1 

0 

00000 

23424 

. 30000 

.48027 

4 

11   1 

0 

00000 

16775 

.30000 

.48718 

4 

12   1 

0 

00000 

. 000    . 000    . 0 
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1 1338 

. 30000 

49108 

4 

13 

1 

0 

00000 

05189 

.30000 

49366 

4 

14 

1 

0 

00000 

00000 

. 30000 

49434 

4 

15 

1 

0 

00000 

97980 

. 40000 

00000 

5 

1 

1 

0 

00000 

95SS4 

. 40000 

10078 

5 

2 

1 

Q 

00000 

88955 

. 40000 

20537 

5 

3 

1 

0 

00000 

80696 

. 40000 

27786 

5 

4 

1 

0 

00000 

70137 

.40000 

34208 

5 

5 

1 

0 

00000 

61215 

.40000 

3S25 1 

5 

6 

1 

0 

00000 

51476 

.40000 

41684 

5 

7 

1 

0 

00000 

43818 

. 40000 

43818 

c- 

8 

1 

0 

00000 

35771 

. 40000 

45409 

5 

9 

1 

0 

00000 

29219 

. 40000 

4676 1 

5 

10 

1 

0 

00000 

23214 

.40000 

47595 

5 

11 

1 

0 

00000 

16624 

. 40000 

48280 

5 

12 

1 

0 

00000 

1 1235 

. 40000 

48667 

5 

13 

1 

0 

00000 

05142 

. 40000 

48922 

5 

14 

1 

0 

00000 

00000 

. 40000 

48990 

5 

15 

1 

0 

00000 

97980 

.40000 

00000 

6 

1 

2 

0 

00000 

95884 

. 40000 

10078 

6 

z 

^ 
^ 

0 

00000 

88955 

. 40000 

20537 

6 

2 

2 

0 

00000 

80696 

. 40000 

27786 

6 

4 

2 

0 

00000 

70137 

.40000 

34208 

6 

tr 

j1 

0 

00000 

51215 

.40000 

3325 1 

6 

c 

t_! 

i. 

0 

00000 

51476 

.40000 

41684 

6 

-) 

2 

0 

00000 

43818 

. 40000 

43818 

6 

8 

2 

0 

00000 

36771 

. 40000 

45409 

6 

9 

2 

0 

00000 

29219 

.40000 

46761 

6 

10 

2 

0 

00000 

23214 

. 40000 

47595 

6 

11 

f! 

00000 

15624 

. 40000 

48280 

6 

12 

2 

0 

00000 

1 1236 

.40000 

48667 

6 

13 

2 

0 

00000 

05142 

40000 

48922 

6 

14 

2 

0 

00000 

OOOOQ 

.40000 

48990 

6 

15 

o 

0 

00000 

96825 

. 50000 

00000 

7 

1 

2 

0 

00000 

94754 

.50000 

09959 

7 

2 

V 

0 

00000 

87905 

. 50000 

20295 

-) 

3 

0 

00000 

79745 

.50000 

27458 

7 

4 

2 

0 

00000 

69310 

. 50000 

7 

c- 

2 

0 

00000 

604;4 

. 50000 

3780  1 

7 

6 

^t 

0 

00000 

50859 

^nnio 

'I  '   ;93 

-1 
1 

— » 
1 

2 

n 

00000 

43301 

.50000 

4330  1 

n 

8 

2 

0 

00000 

36338 

. 50000 

44874 

7 

Q 

^ 

0 

00000 

28875 

.50000 

46209 

7 

10 

'£ 

0 

00000 

22940 

.50000 

47034 

-} 

11 

2 

0 

00000 

16428 

.50000 

47710 

7 

12 

2 

n 

00000 

11103 

. 50000 

48093 

-1 
1* 

13 

^ 

0 

00000 

0508 1 

. 50000 

48346 

7 

14 

2 

0 

00000 

00000 

.50000 

48412 

7 

15 

0 

OOOOQ 

953Q4 

. 60000 

00000 

8 

1 

•"■ 

0 

00000 

93354 

. 60000 

09812 

8 

2 

2 

0 

00000 

85507 

.60000 

19995 

f; 

.J. 

--1 

0 

00000 

78566 

. 60000 

27052 

8 

4 

z 

0 

00000 

68286 

. 60000 

35305 

8 

5 

^ 

0 

00000 

59600 

.60000 

37242 

8 

6 

2 

0 

00000 

50117 

. 60000 

40584 

8 

-1 
f 

2 

0 

00000 

42562 

.60000 

4266 1 

8 

8 

2 

0 

00000 

3580 1 

. 60000 

44211 

9 

2 

0 

00000 

28448 

. 60000 

45527 

8 

10 

■-> 

0 

00000 

22501 

.50000 

46339 

8 

11 

2 

0 

00000 

16185 

. 60000 

47005 

8 

12 

2 

0 

00000 

10939 

.60000 

47382 

8 

13 

2 

0 

00000 

132 


.05006 

60000 

4755  1 

8 

14 

z 

0 

00000 

.00000 

60000 

47697 

8 

15 

2 

0 

00000 

.93675 

70000 

00000 

9 

1 

2 

0 

00000 

.91671 

70000 

09635 

9 

2 

2 

0 

00000 

. 85047 

70000 

19635 

9 

3 

2 

0 

00000 

.77150 

70000 

26565 

9 

4 

2 

0 

00000 

. 67056 

70000 

32705 

9 

5 

2 

0 

00000 

.58526 

70000 

3657 1 

9 

5 

2 

0 

00000 

.49214 

70000 

39853 

9 

7 

2 

0 

00000 

.41893 

70000 

4  1893 

9 

8 

2 

0 

00000 

.35156 

70000 

43414 

9 

9 

2 

0 

00000 

. 27936 

70000 

44706 

9 

10 

2 

0 

00000 

.22194 

70000 

45504 

9 

11 

2 

0 

00000 

. 15894 

70000 

46158 

9 

12 

2 

0 

00000 

. 10742 

70000 

46529 

Q 

13 

2 

0 

00000 

.04916 

70000 

46773 

9 

14 

■^ 

0 

CCGDD 

. 00000 

70000 

46337 

9 

15 

o 

0 

00000 

.91652 

80000 

00000 

10 

1 

2 

0 

00000 

. 8969 1 

800G0 

09427 

10 

2 

2 

0 

00000 

.83210 

80000 

19210 

10 

O 

•-t 

0 

00000 

. 75484 

80000 

2599 1 

10 

4 

J- 

0 

00000 

.65607 

800C0 

31999 

10 

5 

2 

0 

00000 

. 57262 

80000 

3578 1 

10 

6 

2 

0 

00000 

.48151 

80C'00 

'^p;QQ9 

10 

7 

ji' 

n 

00000 

. 40QSS 

SOOOU 

40988 

10 

8 

li 

0 

00000 

. 34397 

30000 

42476 

10 

9 

2 

0 

00000 

.27332 

SOOGO 

4374 1 

10 

10 

2 

0 

OGOGD 

.21714 

80000 

4452  1 

10 

11 

2 

0 

00000 

. 15550 

80000 

45151 

10 

12 

2 

0 

00000 

. 10510 

80  00  Li 

^v)  =;=•■-■:; 

10 

13 

jL 

r-. 

00000 

.04810 

80000 

45763 

10 

14 

•n 

0 

00000 

nnnrin 

80000 

45S26 

ID 

15 

o 

fl 

00000 

.91552 

SOQOG 

OQOOO 

11 

1 

3 

0 

00000 

.89691 

80000 

09427 

11 

2 

o 

0 

00000 

.83210 

socoo 

19210 

11 

3 

3 

0 

00000 

. 75484 

SOOOG 

2599 1 

11 

4 

o 

0 

cccoo 

. 65607 

80000 

31999 

11 

5 

3 

0 

00000 

.57262 

80000 

3578 1 

11 

6 

3 

0 

OOGOO 

.48151 

80000 

38992 

11 

7 

C' 

0 

00000 

. 40983 

80000 

40988 

11 

o 

3 

0 

OOOGO 

.34397 

SuOOO 

42476 

11 

9 

3 

0 

00000 

. 27332 

80000 

4374  1 

11 

10 

•J 

0 

00000 

.21714 

80000 

4452  ! 

11 

11 

--I 

n 

OGOGO 

. 15550 

80000 

45161 

11 

12 

!;I 

0 

00000 

.  10510 

80000 

45523 

11 

13 

^! 

0 

00000 

.04810 

80000 

45763 

11 

14 

O 

0 

GGOOO 

. 00000 

80000 

45826 

11 

15 

^ 

0 

00000 

. 89303 

90G00 

OOGOO 

12 

1 

^ 

0 

00000 

. 87393 

90000 

09185 

12 

^ 

3 

0 

OOGOO 

.81077 

90000 

18718 

12 

3 

0 

OOGOO 

. 73550 

90000 

25325 

12 

4 

3 

0 

GOGOO 

.63926 

90000 

31179 

12 

5 

3 

0 

00000 

. 55794 

90000 

34S54 

12 

5 

o' 

0 

00000 

.45917 

90000 

37993 

12 

7 

0 

OGOGO 

. 39937 

90000 

39937 

12 

8 

3 

0 

00000 

.33515 

90000 

41383 

12 

9 

o 

0 

00000 

. 25632 

QOGOO 

4252Q 

12 

10 

3 

0 

OOGOO 

.21158 

90000 

43380 

12 

11 

3 

0 

00000 

.15152 

90000 

44004 

12 

12 

3 

0 

GGGGG 

.  10241 

90000 

44357 

12 

13 

3 

0 

00000 

. 04687 

90000 

44590 

12 

14 

3 

0 

OOGOO 
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.00000 

.90000 

. 4465 1 

12 

15 

•3 

0 

.00000 

. 86503     1 

. 00000 

. 00000 

13 

1 

3 

0 

. 00000 

. 84750     1 

. 00000 

.08908 

13 

2 

3 

0 

. 00000 

. 78626     1 

. 00000 

. 18152 

13 

3 

3 

0 

. 00000 

.71325     1 

00000 

.24559 

13 

4 

2 

0 

. 00000 

.61993     1 

00000 

. 30235 

13 

5 

3 

0 

. 00000 

.54107     1 

00000 

.33810 

13 

6 

3 

0 

. 00000 

. 4549S     1 

00000 

. 35844 

13 

7 

o 

0 

. 00000 

. 3S730     1 

00000 

. 38730 

13 

8 

3 

0 

.00000 

. 32502     1 

00000 

.401.36 

13 

9 

3 

0 

. 00000 
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